Vbscript enumera todos los archivos PDF en la carpeta y subcarpetas

folder subfolder

Question

Bueno, aquí está mi código, pero simplemente no puedo filtrar el listado usando objFile.Extension, estoy seguro de que es algo tonto

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:/dev"
Set objFolder = objFSO.GetFolder(objStartFolder)
Wscript.Echo objFolder.Path
Set colFiles = objFolder.Files
For Each objFile in colFiles
If objFile.Extension = "PDF" Then
Wscript.Echo objFile.Name
End If
Next
Wscript.Echo
ShowSubfolders objFSO.GetFolder(objStartFolder)
Sub ShowSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
Wscript.Echo Subfolder.Path
Set objFolder = objFSO.GetFolder(Subfolder.Path)
Set colFiles = objFolder.Files
For Each objFile in colFiles
Wscript.Echo objFile.Name
Next
Wscript.Echo
ShowSubFolders Subfolder
Next
End Sub

En funcionamiento, vuelve con el error

(11, 1) Error de tiempo de ejecución de Microsoft VBScript: el objeto no admite esta propiedad o método: ''objFile.Extension''

Answer 1

Querrá utilizar el método GetExtensionName en el objeto FileSystemObject.

Set x = CreateObject("scripting.filesystemobject")
WScript.Echo x.GetExtensionName("foo.pdf")

En tu ejemplo, intenta usar esto

For Each objFile in colFiles
If UCase(objFSO.GetExtensionName(objFile.name)) = "PDF" Then
Wscript.Echo objFile.Name
End If
Next

Answer 2

Hay una respuesta bien documentada a su pregunta en esta url:

http://blogs.technet.com/b/heyscriptingguy/archive/2005/02/18/how-can-i-list-the-files-in-a-folder-and-all-its-subfolders.aspx

La respuesta que se muestra en esa URL es algo complicada y utiliza WMI (Windows Management Instrumentation) para recorrer los archivos y las carpetas. Pero si hace mucha administración de Windows, vale la pena el esfuerzo para aprender WMI.

Estoy publicando esto ahora en caso de que necesite algo ahora mismo; pero creo que solía usar un enfoque basado en el sistema de archivos y voy a buscar algún ejemplo, y lo publicaré más adelante si lo encuentro.

Espero que esto sea útil.

Answer 3

(Para aquellos que tropiezan con esto desde su motor de búsqueda de elección)

Esto rastrea recursivamente la carpeta, por lo que no necesita duplicar el código dos veces. Además, la lógica de OP es innecesariamente compleja.

Wscript.Echo "begin."
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objSuperFolder = objFSO.GetFolder(WScript.Arguments(0))
Call ShowSubfolders (objSuperFolder)
Wscript.Echo "end."
WScript.Quit 0
Sub ShowSubFolders(fFolder)
Set objFolder = objFSO.GetFolder(fFolder.Path)
Set colFiles = objFolder.Files
For Each objFile in colFiles
If UCase(objFSO.GetExtensionName(objFile.name)) = "PDF" Then
Wscript.Echo objFile.Name
End If
Next
For Each Subfolder in fFolder.SubFolders
ShowSubFolders(Subfolder)
Next
End Sub

Answer 4

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:/Users/NOLA BOOTHE/My Documents/operating system"
Set objFolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files
For Each objFile in colFiles
Wscript.Echo objFile.Name
Next

Answer 5

Verifique este código:

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:/Folder1/"
Set objFolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files
For Each objFile in colFiles
strFileName = objFile.Name
If objFSO.GetExtensionName(strFileName) = "pdf" Then
Wscript.Echo objFile.Name
End If
Next
ShowSubfolders objFSO.GetFolder(objStartFolder)
Sub ShowSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
Set objFolder = objFSO.GetFolder(Subfolder.Path)
Set colFiles = objFolder.Files
for each Files in colFiles
if LCase(InStr(1,Files, ".pdf")) > 1 then Wscript.Echo Files
next
ShowSubFolders Subfolder
Next
End Sub

Answer 6

La extensión de archivo puede ser mayúscula ... pero el código funciona.

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:/Dev/"
Set objFolder = objFSO.GetFolder(objStartFolder)
Wscript.Echo objFolder.Path
Set colFiles = objFolder.Files
For Each objFile in colFiles
strFileName = objFile.Name
If objFSO.GetExtensionName(strFileName) = "pdf" Then
Wscript.Echo objFile.Name
End If
Next
Wscript.Echo
ShowSubfolders objFSO.GetFolder(objStartFolder)
Sub ShowSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
Wscript.Echo Subfolder.Path
Set objFolder = objFSO.GetFolder(Subfolder.Path)
Set colFiles = objFolder.Files
For Each objFile in colFiles
Wscript.Echo objFile.Name
Next
Wscript.Echo
ShowSubFolders Subfolder
Next
End Sub

Answer 7

Puede que no ayude a OP, pero esperamos que a otros les pueda resultar útil:

correr

%ComSpec% /c cd/d StartPath & dir/s/b *.pdf

usando un objeto shell

StdOut contendrá todos los archivos PDF