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 vote297 views1 answer
Excel vba copy range with filter
VBA
0 vote283 views1 answer
Vb run command
VBA
0 vote291 views1 answer
Vba cell all borders
VBA
0 vote280 views1 answer
How to use if condition in time vba
VBA
1 vote290 views2 answers
Vba string length
VBA
0 vote288 views1 answer
Excel vba first working day month
VBA
0 vote251 views1 answer
Add items to combobox vb.net
VBA
0 vote297 views1 answer
How to mount floppy disks in vb.net
VBA
0 vote296 views1 answer
Add text to Shape VBA
VBA
0 vote263 views1 answer
Vba copy paste value only
VBA