Check for directories

[Stevie]

Try this ...

Dim strPath As String
Dim fso As FileSystemObject
  
  strPath = "c:\abc"
  
  ' create file system object
  Set fso = New FileSystemObject
  
  ' Create folder if it does not exist
  If Not fso.FolderExists(strPath) Then
    fso.CreateFolder strPath
    fso.CreateFolder strPath & "\123"
  End If
  
  Set fso = Nothing

Only works for VB6 though.

Hope it helps