Creating folders with the file system object model can help eliminate errors and long folder-existence checks?especially if you are attempting to create already existing folders.
Dim fso as new FileSystemObjectDim fldr as FolderOn Error Goto FolderError'foldername is the name of the folder you wish to'create passed by value into this create procedureSet fldr= fso.CreateFolder(foldername)set fldr= Nothingset fso= NothingExit SubFolderError: Exit subResume NextEnd Sub