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 vote129 views1 answer
String contins in vba
VBA
0 vote117 views1 answer
Vb net check if file exists
VBA
1 vote111 views1 answer
Excel vba to lower case
VBA
0 vote134 views4 answers
Vgrive,deb
VBA
0 vote134 views1 answer
Vbs run with cscript
VBA
0 vote155 views1 answer
Vbnet check if string is only letters
VBA
0 vote118 views2 answers
Excel vba close without saving
VBA
5 votes136 views1 answer
Excel vba right word from Long Integer
VBA
1 vote134 views1 answer
Excel date to unix timestamp
VBA
0 vote119 views1 answer
Vba string start with
VBA