Opret en hel sti af mapper.

hejsan - lidt kode som en kollega en gang skrev til et program vi lavede


Public Function DirCreateNested(dPath As String) As Boolean
   
' This function will create a nested directory
' ie c:\Dir1\Dir2\Dir3. Returns True if dirs
' are created successfully otherwise False.
   
Dim dNr As Integer, cNr As Integer

  On Error GoTo ErrHandler

  ' Set first char
  cNr = 1
  ' If last Char isn't \ then append it
  If Right$(dPath, 1) <> "\" Then
      dPath = dPath & "\"
  End If
   
  Do
      dNr = InStr(cNr, dPath, "\", vbTextCompare)
      If dNr >= cNr Then
        If DirExist(Left$(dPath, dNr)) = False Then
            MkDir (Left$(dPath, dNr))
        End If
        cNr = dNr + 1
        If cNr >= Len(dPath) Then
            Exit Do
        End If
      End If
  Loop
   
  DirCreateNested = True

Exit Function
   
ErrHandler:
  DirCreateNested = False
   
End Function

//vbcoder.dk

Tak for det hurtige svar.

Det ser fint ud, tak

Men det er mærkeligt at der ikke er en "MkPat"

Daddo