This function creates the directory supplied as an argument, creating folders and subfolders as needed. The last subfolder must be followed by a backslash.
Sample usage: fCreateDirectory("H:\Folder1\Subfolder1\")
Option Explicit Option Base 1 'this is not necessary for this function
Public Function fCreateDirectory(sDirectory$) As Boolean 'uses FileFolderExists function
fCreateDirectory = True: On Error Goto Failed
If Not
|