Checking folders and subfolders

Hi there!

I set the code below to publish pdf:


Sub MakePDF()

DirOpenFile = ActiveDocument.FilePath
Directory = Dir$(DirOpenFile)

Do While Len(Directory) <> 0

Set File = OpenDocument(Directory)
NameWithoutCdr = Replace(Directory, ".cdr", ".pdf")

File.PublishToPDF (DirOpenFile & NameWithoutCdr)
File.Close
Counting = Counting + 1
Directory = Dir$

Loop

End Sub

Could anyone tell me what should I do to make the macro search also into existing subfolders (if they exist or not)?

[shelbym]

You can find Alex's original code here: Finding a File in Sub Folders I have combined the changes in the thread to the following code:

Private Sub EnumSubFolders(ByVal SrcFolder As String, ByVal Folders As Collection)
    Dim f As String
    
    f = Dir(SrcFolder & "\*.*", vbDirectory)
    
    While f <> ""
        If f <> "." And f <> ".." And (GetAttr(SrcFolder & "\" & f) And vbDirectory) <> 0 Then
            Folders.add SrcFolder & "\" & f
        End If
        f = Dir()
    Wend
End Sub

Private Sub ProcessFolder(ByVal SrcFolder As String)
    Dim f As String, sFolder As Variant
    Dim Folders As New Collection
    Dim n As Long
    
    ' Create a list of folders and subfolders
    EnumSubFolders SrcFolder, Folders
    
    n = 1
    While n <= Folders.Count
        EnumSubFolders Folders(n), Folders
        n = n + 1
    Wend
    
    ' Process the CDR files in each of the folders found
    For Each sFolder In Folders
        f = Dir(sFolder & "\*.cdr")
    
        While f <> ""
            ProcessFile sFolder & "\" & f
            f = Dir()
        Wend
    Next sFolder
End Sub

Private Sub ProcessFile(ByVal sFile As String)
    ' Do your file processing here
End Sub

And as Alex's says here is how you can use it.

Public Sub Test()
    ProcessFolder "D:\Temp"
End Sub

This will call ProcessFile subroutine for every CDR file found in D:\Temp or any of its subfolders. Hope that gets you pointed in the correct direction.

-Shelby