Cómo Incluir filtros para importación de archivos?
Publicado por Enrique (3 intervenciones) el 22/02/2021 21:39:10
Hola a todos.
Tengo el siguiente script para listar archivos. Trae todos los archivos de la carpeta seleccionada y sus sub-carpetas.
¿cómo podría agregarle filtros para seleccionar por ejemplo un año de creación o de modificación de archivo? ¿o tipo de archivo, o una carpeta específica?
SE AGREDECE DE ANTEMANO CUALQUIER AYUDA
Saludos,
Tengo el siguiente script para listar archivos. Trae todos los archivos de la carpeta seleccionada y sus sub-carpetas.
¿cómo podría agregarle filtros para seleccionar por ejemplo un año de creación o de modificación de archivo? ¿o tipo de archivo, o una carpeta específica?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub ListMyFiles(mySourcePath, IncludeSubfolders)
Set MyObject = New Scripting.FileSystemObject
Set mySource = MyObject.GetFolder(mySourcePath)
On Error Resume Next
For Each myFile In mySource.Files
iCol = 2
Cells(iRow, iCol).Value = myFile.path
iCol = iCol + 1
Cells(iRow, iCol).Value = myFile.Name
iCol = iCol + 1
Cells(iRow, iCol).Value = myFile.Type
iCol = iCol + 1
Cells(iRow, iCol).Value = myFile.Size
iCol = iCol + 1
Cells(iRow, iCol).Value = myFile.DateCreated
iCol = iCol + 1
Cells(iRow, iCol).Value = myFile.DateLastModified
iRow = iRow + 1
Next
If IncludeSubfolders Then
For Each mySubFolder In mySource.SubFolders
Call ListMyFiles(mySubFolder.path, True)
Next
End If
SE AGREDECE DE ANTEMANO CUALQUIER AYUDA
Saludos,
Valora esta pregunta


0