• Home
 · 
• Files/File Controls/Input/Output
 · 
• A simple way to create a directory

A simple way to create a directory

A simple way to create a directory

Rate A simple way to create a directory

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Option explicit
Private Sub Form_Load()
  CreateDirectory "C:\Temp1\Temp1\Temp1"
  End
End Sub

Public Function CreateDirectory(DirPath As String)
  Dim i%, tmpDir$, arSplit
  On Error Resume Next
  arSplit = Split(DirPath, "\") 'Split Dierctory path
  tmpDir$ = arSplit(0)
  For i% = 1 To UBound(arSplit)
    tmpDir$ = tmpDir$ & "\" & arSplit(i%)
    MkDir tmpDir$
  Next i%
End Function