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)?