Como saber si un directorio tiene archivos

Hace un tiempo publiqué algo en mi blog que tal vez te sirva. Lo puedes
encontrar en el siguiente enlace:

http://weblogs.golemproject.com/jma.../2714.aspx


Si el tamaño calculado por la función es mayor de cero entonces ya sabes que
la carpeta tiene registros.

Saludos,

Jose Luis Manners, MCP
English: http://blogs.geekdojo.net/jmanners
Español: http://weblogs.golemproject.com/jmanners/

"Encuentra felicidad en tu trabajo o nunca serás feliz."
Cristóbal Colón

"Francisco Birrer" wrote in message
news:

Hola Grupo

Necesito saber si una carpeta tiene registros, ¿Como lo puedo hacer?

Gracias

Imports System.IO

Dim _ficheros() As String
_ficheros = Directory.GetFiles(RutaDirectorio)
If Not (_ficheros.Length > 0) Then
Messagebox.Show("El directorio no tiene archivos")
End If

"Francisco Birrer" escribió en el mensaje
news:

Hola Grupo

Necesito saber si una carpeta tiene registros, ¿Como lo puedo hacer?

Gracias

¿Y que sucede cuando el directorio tiene directorios que tienen archivos?

Saludos,

Jose Luis Manners, MCP
English: http://blogs.geekdojo.net/jmanners
Español: http://weblogs.golemproject.com/jmanners/

"Encuentra felicidad en tu trabajo o nunca serás feliz."
Cristóbal Colón

"Sonia" wrote in message
news:%

Imports System.IO

Dim _ficheros() As String
_ficheros = Directory.GetFiles(RutaDirectorio)
If Not (_ficheros.Length > 0) Then
Messagebox.Show("El directorio no tiene archivos")
End If

"Francisco Birrer" escribió en el mensaje
news:
> Hola Grupo
>
> Necesito saber si una carpeta tiene registros, ¿Como lo puedo hacer?
>
> Gracias
>
>

¿Y que sucede cuando el directorio tiene directorios que tienen
archivos?

Nada. La pregunta era si habia archivos no si habia subdirectorios. ;-)

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo
https://mvp.support.microsoft.com/p...4EF5A4191C
http://spaces.msn.com/members/emorcillo/

Gracias

"Sonia" escribió en el mensaje
news:%

Imports System.IO

Dim _ficheros() As String
_ficheros = Directory.GetFiles(RutaDirectorio)
If Not (_ficheros.Length > 0) Then
Messagebox.Show("El directorio no tiene archivos")
End If

"Francisco Birrer" escribió en el mensaje
news:

Hola Grupo

Necesito saber si una carpeta tiene registros, ¿Como lo puedo hacer?

Gracias