Mornin' all!

I've got the following code:

Dim WebName As String, SaveFolder As String
ActiveDocument.Refresh
SaveFolder = "\\web1a\PIBReports\BCA\" & WebName & "\"
WebName = ReplaceChars(ActiveDocument.Name, " ", "_")
CreatePDF SaveFolder, WebName & ".pdf"
CreatePDF SaveFolder, WebName & "_" & ReplaceChars(Left
(Now, 10), "/", "-") & ".pdf"

What I want, is that if the SaveFolder path doesn't exist,
for the script to create all the folders that don't exist.

The problem is, I don't know how!

Please help!

Cheers,
Foss