Script to print all files in folder and subfolders

[Jushin Liger]

Can you write a piece of code or a script to print all the files in a folder and its sub folders? I can write a vbs script to print all files in one folder but I have no idea how to include sub folders.

The script I've been using is shown below.

Any help?

TargetFolder = "EXAMPLE FOLDER"
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(TargetFolder)
Set colItems = objFolder.Items
For Each objItem in colItems
objItem.InvokeVerbEx("Print")
Next

[johnnie walker]

This sounds like what you need: (The second part)
http://www.microsoft.com/technet/scr...4/hey1020.mspx

The basic idea is that you recursively loop through each of the folders in the top folder and print the files in there.

[Jushin Liger]

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

Set objFSO = CreateObject("Scripting.FileSystemObject")
TargetFolder = "IingaporeCaley 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

[PapaZeb]

with WMI/VBS it's a pain in the ass (but since I'm dead at work, I might as well give it a shot when I go to work today)

If you just need it enumerated and VBS isn't a requirement, how about

Start -> Run -> CMD

dir /s NAMEOFDIRECTORY > c:/directory.txt

Open c:/directory.txt in notepad or whatever. Hit PRINT.

I'd use
dir /s /b NAME > c:/directory.txt
since it'll just spit back filenames

[PapaZeb]

Yeah...you were going about it the hard way

const ForAppending = 8
textFilePath = "C:test.txt" 
set objFSO = createobject("Scripting.FileSystemObject")
set objTextFile = objFSO.opentextfile(textFilePath,ForAppending)
strFolder = "C:ringtones"

set objFSO = createobject("Scripting.FileSystemObject")

GetFiles strFolder

sub GetFiles(byval strDirectory)
	set objFolder = objFSO.GetFolder(strDirectory)
	for each objFile in objFolder.Files
		objTextFile.WriteLine objFile.Path 
	next	
	for each objFolder in objFolder.SubFolders
		GetFiles objFolder.Path
	next
end sub
objTextFile.Close

Things you could add - check that the text file to be written to exists, create if not. Error checking, file attributes, pass in text file or target folder as arguments..that sorta thing.

Unless you want to go about this in a totally tarded method of sending things to a printer?

[Jushin Liger]

Nah i don't want to print a list of all files in a folder and sub folder, I want to print all the files (.dwg AutoCAD files).

Or am I getting what's written in that code all wrong?

[PapaZeb]

My mistake - looked at code more than the question (and all you kept doing was enumerating the files)

VBS isn't the right tool to print out a bunch of CAD files. About the best it can do is open the file and pop open the Print dialog box in my experience

Which CAD application using?

And a quick run around the google shows automated autocad printing generally requiring a program add-on..if I were more familiar with CAD terminology I might be able to drill down on a search to pull out something useful.

[Jushin Liger]

I'll do it the hard way.

Cheers though.

[PapaZeb]

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

[Jushin Liger]

It does yeah. Cheers for that. Already done most of them though.

Actually it wont recognise the objitem hwen you try and include the subfolders but recongizes it fine when you try and apply it to one level.

I don't get it.

[Zooropa]

edit: sack that, doesnt work

[Zooropa]

strDirectory = "E:\Code\SQL"


Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(strDirectory)
Set colItems = objFolder.Items
For Each objItem in colItems
objItem.InvokeVerbEx("Edit")
Next

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objMainFolder = objFSO.GetFolder(strDirectory)
Set colSubfolders = objMainFolder.Subfolders
For Each objSubfolder in colSubfolders
strFolder = objSubfolder.Path
GetFiles strFolder
Next

sub GetFiles(byval strDirectory)
Set objWeeFolder = objShell.Namespace(strDirectory)
Set colWeeItems = objWeeFolder.Items
For Each objWeeItem in colWeeItems
objWeeItem.InvokeVerbEx("Edit")
Next
end sub

This works!

Maybe a bit clumsy, but I was able to go through to a subfolder and loop through the items in that.
It currently only goes down 1 level, but could be changed to loop through other subfolders.

I just sepnt 45 minutes on that, and enjoyed every minute of it.
Work from work, although VBS is fucking old school.
Oh, and obviously change "Edit" to "Print"

[Jushin Liger]

Cool, that's handy.

[Zooropa]

Big Hoody was telling me on MSN he had to copy a file into 900 folders the other day.

"Could I have used VBS for that?"

"Aye."

[Mos Def]

It nearly killed me.