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

0 vote217 views1 answer
Handling a click event anywhere inside a panel vb
VBA
0 vote217 views1 answer
Vb net show lines for all axis labels in chart
VBA
0 vote221 views1 answer
Excel vba disable mouse click
VBA
1 vote223 views2 answers
Vba find last row in range for certain criteria
VBA
1 vote216 views1 answer
Vba delete array element
VBA
5 votes248 views2 answers
Excel vba write to the windows registry
VBA
1 vote209 views2 answers
Vba string to date
VBA
0 vote230 views1 answer
Not allow form to be resized
VBA
0 vote242 views1 answer
Vba integer to double
VBA
8 votes497 views1 answer
Vba make a short integer from two bytes
VBA