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 vote152 views1 answer
Excel vba disable keyboard input
VBA
0 vote138 views1 answer
Vba argument is set
VBA
5 votes184 views1 answer
Vba low word from Long Integer
VBA
0 vote154 views1 answer
Vba run command
VBA
0 vote204 views1 answer
Find control with name vb
VBA
0 vote121 views1 answer
How to make a if statement with vbs
VBA
0 vote157 views1 answer
Vbnet find highest value in chart
VBA
3 votes165 views1 answer
Excel vba get the workbook full filename with path
VBA
0 vote156 views1 answer
Not allow form to be resized
VBA
0 vote160 views1 answer
Vbnet convert charatcer to binary
VBA