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 votes128 views1 answer
Excel vba check if string entirely numeric
VBA
0 vote110 views1 answer
Vbnet access System.InvalidOperationException: 'Update requires a valid UpdateCommand when passed DataRow collection with modified rows.'
VBA
1 vote113 views1 answer
Vba delete array element
VBA
1 vote129 views1 answer
What does vbs stand for
VBA
0 vote115 views1 answer
Excel vba chrw max value
VBA
0 vote144 views1 answer
Vba random number
VBA
1 vote121 views1 answer
Shortcut to apply a formula to an entire column in excel
VBA
20 votes163 views1 answer
Excel vba recursive example factorial function
VBA
0 vote110 views2 answers
Delete all controls from list of control vb.net
VBA
4 votes128 views2 answers
Excel vba last column with data
VBA