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

2 votes261 views2 answers
Excel vba copy values range to another range
VBA
0 vote281 views1 answer
Loop through each cell in dgv vbnet
VBA
0 vote265 views1 answer
Vba line feed
VBA
0 vote280 views1 answer
Vba sheet hide unhide
VBA
0 vote291 views1 answer
How to mount floppy disks in vb.net
VBA
0 vote279 views1 answer
Excel vba ternary
VBA
0 vote282 views1 answer
Vba collection contains
VBA
0 vote279 views1 answer
Vba simple quote
VBA
1 vote267 views1 answer
Excel vba get ordinal number from cardinal number
VBA
1 vote291 views1 answer
Excel vba to lower case
VBA