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

-1 vote136 views1 answer
VBA check if a cell contains a letter or string
VBA
0 vote163 views1 answer
Excel vba protect shapes
VBA
0 vote136 views1 answer
Excel vba Column Name to Column Number
VBA
-1 vote134 views1 answer
For i in range vba
VBA
0 vote137 views1 answer
Vb net dgv doesn't keep currency format
VBA
0 vote127 views1 answer
Excel text to columns line break
VBA
0 vote166 views1 answer
How to enter Vbox manage commands
VBA
0 vote144 views1 answer
Windows Forms dark title bar
VBA
0 vote135 views1 answer
Vba get text file content
VBA
0 vote131 views1 answer
Vb.net round to 2 decimal places
VBA