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

5 votes180 views1 answer
Vba low word from Long Integer
VBA
1 vote167 views1 answer
Close form vba
VBA
0 vote176 views1 answer
Loop through each cell in dgv vbnet
VBA
1 vote181 views1 answer
Vba compile error object required
VBA
0 vote180 views1 answer
Vba word pdf table to excel
VBA
0 vote204 views1 answer
Vbs run with cscript
VBA
0 vote168 views1 answer
Vba collection key list
VBA
2 votes168 views2 answers
Constructor vb.net
VBA
0 vote179 views1 answer
Excel vba StartUpPosition
VBA
0 vote167 views1 answer
Remove frist letter from string vbnet
VBA