| Re: Script to print all files in folder and subfolders
Actually....if the first script you put up will print the CAD files in a single folder just fine, try (change the strFolder= line, obviously)
set objFSO = createobject("Scripting.FileSystemObject")
strFolder = "C:\ringtones"
GetFiles strFolder
sub GetFiles(byval strDirectory)
set objFolder = objFSO.GetFolder(strDirectory)
for each objFile in objFolder.Files
objItem.InvokeVerbEx("Print")
next
for each objFolder in objFolder.SubFolders
GetFiles objFolder.Path
next
end sub
Last edited by PapaZeb; 21st February 2008 at 2:48pm.
Reason: Removed CODE tags, kept stripping backslashes
| 
