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 vote354 views1 answer
Remove first character from string vb
VBA
0 vote381 views1 answer
Vba run command
VBA
0 vote346 views1 answer
Excel vba disable mouse click
VBA
0 vote355 views1 answer
Excel vba scroll to cell
VBA
0 vote361 views1 answer
Freeze panes vba
VBA
0 vote385 views1 answer
Vba random number
VBA
0 vote364 views2 answers
How to update date and time automatically once id is entered in excel vba
VBA
0 vote324 views1 answer
Excel vba concatenate range
VBA
0 vote356 views1 answer
Convert unix to date vba
VBA
0 vote355 views1 answer
VB get external IP address
VBA