Print Batch of Files Recursively

[Steve]

I've got a folder with two lower levels of folders. I need to print all the
files in all level of folders. How do I do this recursively?

Thanks,
Steve

 

[Jonathan West]

I've got a folder with two lower levels of folders. I need to print all the
files in all level of folders. How do I do this recursively?

Like this...

Dim oDoc as Doc
Dim i as Long
With Application.FileSearch
.Lookin = "put the full pathname top level folder here"
.SearchSubfolders = True
.FileName = "*.doc"
.Execute
For i = 1 to .FoundFiles.Count
Set oDoc = Documents.Open(.FoundFiles(i))
oDoc.Printout Background:=False
oDoc.Close SaveChanges:=wdDoNotSaveChanges
Next i
End With

 

[Steve]

Thanks, Jonathan. Does the FileSearch method automatically handle all
subfolders? I don't have to do this recursively myself?
Steve

 

[Steve]

Works beautifully. thanks.

Like this...

Dim oDoc as Doc
Dim i as Long
With Application.FileSearch
.Lookin = "put the full pathname top level folder here"
.SearchSubfolders = True
.FileName = "*.doc"
.Execute
For i = 1 to .FoundFiles.Count
Set oDoc = Documents.Open(.FoundFiles(i))
oDoc.Printout Background:=False
oDoc.Close SaveChanges:=wdDoNotSaveChanges
Next i
End With


--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup

 

[Jonathan West]

Thanks, Jonathan. Does the FileSearch method automatically handle all
subfolders? I don't have to do this recursively myself?
Steve

Yes, that is handled by the SearchSubfolders property