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

1 vote319 views2 answers
Vba function return array
VBA
0 vote338 views1 answer
COMO GRAVAR U VALOR NO ARQUIVO APPSETINGS EM VB NET
VBA
1 vote358 views1 answer
Excel vba get column number from column name
VBA
0 vote319 views1 answer
Enable macros on opening workbook vba
VBA
4 votes321 views1 answer
Excel vba determine number of elements in an array
VBA
0 vote329 views1 answer
Date as number vb
VBA
0 vote309 views1 answer
Change whcih control a user has selected vb
VBA
0 vote317 views1 answer
Vba code to open a file with login rights
VBA
0 vote288 views1 answer
Excel vba milliseconds
VBA
-1 vote332 views1 answer
VBA check if a cell contains a letter or string
VBA