Vba create folder if not exist

'requires reference to Microsoft Scripting Runtime
Function MkDir(ByVal strDir As String, ByVal strPath As String)
  	Dim fso As New FileSystemObject
  	Dim path As String
	path = strPath & strDir
	If Not fso.FolderExists(path) Then
	    fso.CreateFolder path
	End If
End Function

Source: stackoverflow.com

Vba create directory if not exist

'Don't requires refernce of Microsoft Scripting Runtime
Path = "D:\FolderName\"
If Len(Dir(Path, vbDirectory)) = 0 Then
   MkDir Location
End If

Similar codes

0 vote299 views1 answer
Add items to combobox vb.net
VBA
0 vote355 views1 answer
Prive sub enter clicked vb
VBA
3 votes367 views1 answer
Vba post request json
VBA
0 vote323 views1 answer
Convert Seconds to HH:MM:SS in VB.Net
VBA
22 votes552 views1 answer
Excelvba check for directory
VBA
0 vote340 views1 answer
Vba timestamp -- milliseconds
VBA
0 vote341 views1 answer
Vba collection contains
VBA
0 vote326 views1 answer
Vba line feed
VBA
0 vote344 views1 answer
VBA Sleep Snippet
VBA
0 vote343 views1 answer
Vba range clear formatting
VBA