Create Folders Using the File Sytem Object Model

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
Share the Post:
Share on facebook
Share on twitter
Share on linkedin

Overview

Recent Articles: