by Gerald Bryant (1 Submission)
Category: VB function enhancement
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Date Added: Wed 3rd February 2021
Rating: 
(39 Votes)
Make nested subfolders in a single method.
Inputs
sPath: Fully-qualified absolute or relative path you wish to create.
'Example 1: \\NetworkVolume\NetworkShare\ExistingDir\NewDir\NewSubdir\NewSubDir'Example 2: C:\Program Files\a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
Assumes
Add reference "Microsoft Scripting Runtime" (scrrun.dll) available at http://www.microsoft.com/scripting or with VB6.
Side Effects
Number 70, Permission Denied error will occur is write access or directory create access is not allowed for the drive for that user.
'Reference "Microsoft Scripting Runtime" (scrrun.dll) available at http://www.microsoft.com/scripting or with VB6.
API DeclarationsAdd reference "Microsoft Scripting Runtime" (scrrun.dll) available at http://www.microsoft.com/scripting or with VB6.
VBcodersPublic Sub CreateFolders(ByVal sPath As String)
Dim oFileSystem As New Scripting.FileSystemObject
'or late-bind with:
'Dim oFileSystem As Object
'Set oFileSystem = CreateObject("Scripting.FileSystemObject")
On Error GoTo ErrorHandler
With oFileSystem
' Is this drive valid and ready?
If .DriveExists(.GetDriveName(sPath)) Then
' Is this folder not yet valid?
If Not .FolderExists(sPath) Then
' Recurse back in to this method until a parent folder is valid.
CreateFolders .GetParentFolderName(sPath)
' Create only a nonexistant folder before exiting the method.
.CreateFolder sPath
End If
End If
End With
Set oFileSystem = Nothing
ExitMethod:
Exit Sub
ErrorHandler:
App.LogEvent "CreateFolders Error in " & Err.Source & _
": Could not create " & sPath & ".", vbLogEventTypeInformation
End Sub