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 vote349 views1 answer
Vbnet line graph smooth lines
VBA
0 vote368 views2 answers
Get unique random number in vb.net
VBA
0 vote349 views1 answer
Find the name of the last excel sheet vb
VBA
0 vote342 views1 answer
Vba text to general
VBA
5 votes388 views1 answer
Excel vba right word from Long Integer
VBA
5 votes411 views1 answer
Excel vba low word from Long Integer
VBA
0 vote382 views1 answer
COMO GRAVAR U VALOR NO ARQUIVO APPSETINGS EM VB NET
VBA
5 votes930 views1 answer
Vlookup vba
VBA
0 vote328 views1 answer
Putting marquee in vb.net
VBA
0 vote332 views1 answer
Do until vb.net
VBA