Vba create directory

'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

Similar codes

3 votes145 views1 answer
Excel insert blank row for value change in column
VBA
0 vote129 views1 answer
Remove frist letter from string vbnet
VBA
4 votes143 views1 answer
Excel vba how to reset usedrange
VBA
0 vote138 views1 answer
Vba remove numbers from string
VBA
0 vote139 views1 answer
Vba change named range address
VBA
0 vote138 views1 answer
Handling a click event anywhere inside a panel vb
VBA
0 vote141 views1 answer
Vba find sub dictionary
VBA
18 votes276 views3 answers
Excel-vba make integer
VBA
0 vote148 views2 answers
Do until loop vba
VBA
0 vote163 views1 answer
Excel vba move down to next visible cell
VBA