25/11/2003, 16:30
|
| | | Fecha de Ingreso: enero-2002
Mensajes: 121
Antigüedad: 23 años, 1 mes Puntos: 0 | |
| ayuda al leer archivos
Hola amigos...
tengo lo siguiente
Dim objFileUsuarios As Scripting.FileSystemObject
Dim objFiles As Scripting.File
Dim strFileNombre As String
dim strdir as string
strdir="c:\Prueba"
Set objFileUsuarios = CreateObject("scripting.filesystemObject")
For Each objFiles In objFileUsuarios.GetFolder(strDir).Files
strFileNombre = objFiles.Name
Next
lo cual traigo todos los nombres de los archivos que contiene Prueba... pero no las carpetas..
como puedo obtener el nombre de las carpetas.. que contenga el directorio Prueba...
Gracias |