Obtener los nombres de archivos de un directorio
Hola Valedor.
Necesito obtener los nombres de los archivos que tengo en un directorio, pero no sé qué código escribir, había pensado:
Sub ObtenerNombres ()
For i=1 to 10
ActiveSheet.Cells(i,1).Value= NombreArchivo
Next
End Sub
Espero noticias, gracias y Feliz Navidad.
Necesito obtener los nombres de los archivos que tengo en un directorio, pero no sé qué código escribir, había pensado:
Sub ObtenerNombres ()
For i=1 to 10
ActiveSheet.Cells(i,1).Value= NombreArchivo
Next
End Sub
Espero noticias, gracias y Feliz Navidad.
1 Respuesta
Respuesta de valedor
1
Al menos hay tres formas de obtener esto, usando el método DIR, usando el modelo de objetos del sistema y usando el objeto FileSearch de Excel, te muestro este ultimo método que me parece más sencillo...
Public Sub Obtener_Archivos()
Dim fs As FileSearch
Dim Archivo_Buscado As String
Dim Buscar_En As String
Dim co1 As Integer
Dim Res As Integer
Archivo_Buscado = "*.*"
Buscar_En = "D:\1Usuarios"
Set fs = Application.FileSearch
With fs
.NewSearch
.FileName = Archivo_Buscado
.LookIn = Buscar_En
Res = MsgBox("Deseas buscar en los subdirectorios", vbQuestion + vbYesNo)
If Res = vbYes Then
.SearchSubFolders = True
End If
.MatchTextExactly = True
If .Execute() > 0 Then
For co1 = 1 To .FoundFiles.Count
ActiveCell.Offset(co1 - 1, 0).Value = .FoundFiles(co1)
Next
Else
MsgBox "No se encontraron archivos"
End If
End With
Set fs = Nothing
End Sub
Si esto resuelve tu pregunta te agradeceré la finaliaras, sino, vuelve a preguntar.
Public Sub Obtener_Archivos()
Dim fs As FileSearch
Dim Archivo_Buscado As String
Dim Buscar_En As String
Dim co1 As Integer
Dim Res As Integer
Archivo_Buscado = "*.*"
Buscar_En = "D:\1Usuarios"
Set fs = Application.FileSearch
With fs
.NewSearch
.FileName = Archivo_Buscado
.LookIn = Buscar_En
Res = MsgBox("Deseas buscar en los subdirectorios", vbQuestion + vbYesNo)
If Res = vbYes Then
.SearchSubFolders = True
End If
.MatchTextExactly = True
If .Execute() > 0 Then
For co1 = 1 To .FoundFiles.Count
ActiveCell.Offset(co1 - 1, 0).Value = .FoundFiles(co1)
Next
Else
MsgBox "No se encontraron archivos"
End If
End With
Set fs = Nothing
End Sub
Si esto resuelve tu pregunta te agradeceré la finaliaras, sino, vuelve a preguntar.
