I've had a play with that but for some reason it hates the line
Set colItems = objFolder.Items
When I change it to
Set colItems = objFolder.files
It will display the name of each file on the screen but not print them.
Here's my current script
Quote:
Set objFSO = CreateObject("Scripting.FileSystemObject")
TargetFolder = "I ingaporeCaley CDR drawings and slidesCDR PACKAGE- 13-2-08IROV"
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(TargetFolder)
Set colItems = objFolder.Items
For Each objItem in colItems
objItem.InvokeVerbEx("Print")
Next
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(TargetFolder)
Set objFolder = objFSO.GetFolder(TargetFolder)
Wscript.Echo objFolder.Path
Set colItems = objFolder.items
For Each objItem in colItems
objItem.InvokeVerbEx("Print")
Next
Wscript.Echo
ShowSubfolders objFSO.GetFolder(objFolder)
Sub ShowSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
Wscript.Echo Subfolder.Path
Set objFolder = objFSO.GetFolder(Subfolder.Path)
Set colFiles = objFolder.items
For Each objItem in colItems
objItem.InvokeVerbEx("Print")
Next
Wscript.Echo
ShowSubFolders Subfolder
Next
End Sub
|
