Opret mappe ud fra 2 felter

MkDir ("V:\noget\nogetandet\" & felt2 & "\" & felt1)

MkDir ("V:\noget\nogetandet\" & felt1 & "\" & felt2 )

Thomas > Imponerende .. og dog ikke eens løsninger :o)

næ, jeg så at grf3256 ville have felt2 først ;)

Tja ... man bli´r jo ældre ...

Hvis du bygger hele stien op og kalder nedenstående, så skulle det kunne lade sig gøre

Public Sub shpMakePath(strPath As String)
' -----------------------------------------------------------------------------------
' Purpose      : Creates at path on disk
' Called from  :
' Returns      :
' Remarks      :
' -----------------------------------------------------------------------------------
On Error GoTo Error_shpMakePath
  Dim intX As Integer                                        'Counter
  Dim intY As Integer                                        'Counter
  Dim strLeftPath As String                                  'Left part of path
  Dim strRightPath As String                                  'Right part of path
 
  intY = 0                                                    'Initialize variable
  intX = InStr(strPath, "\")                                  'Find first \
 
  While intX > 0                                              'If \ found
    intY = intY + intX
    strLeftPath = Mid(strPath, 1, intY)                      'The part left of the \
    strRightPath = Mid(strPath, intY + 1)                    'The part right of the \
    intX = InStr(strRightPath, "\")                          'If any \ left in right part
    MkDir strLeftPath                                        'Create the path
  Wend
 
  MkDir strPath                                              'Make full path

Exit_shpMakePath:
  Exit Sub
 
Error_shpMakePath:
  Select Case Err.Number
  Case 75                                                    'Path exists
    Resume Next
  Case 76                                                    'Path doesn't exist
    Resume Next
  Case Else
    MsgBox "Error # " & str(Err.Number) & " occured in " & Err.Source & Chr(13) & Err.Description
  End Select
  Resume Exit_shpMakePath
 
End Sub

Jeg var lige ude at skovle sne, så lidt sent på den men alligevel:

a = Me.felt1
b = Me.felt2
If Dir(a & ":" & "\" & b, vbDirectory) = "" Then
MkDir a & ":" & "\" & b
MsgBox "Mappen" & vbNewLine & vbNewLine & a & ":" & "\" & b & vbNewLine & vbNewLine & "er nu oprettet."
Else:
MsgBox "Mappen eksisterer i forvejen."
Exit Sub
End If

Hvis du kalder den shpMakePath "V:\noget\nogetandet\felt2\felt1\" og V:\noget\nogetandet ikke eksisterer, så oprettes de også med min funktion

Jeg er ikke just nogen haj til VBA, så jeg har fosøgt mig med Thomas´s løsning...
Det virker nogenlunde..
Den kan dog ikke oprette "felt 2", men der bliver heller ikke så mange, så dem opretter jeg bare manuelt..
Tak for hjælpen..

Selv tak...

Hvis du bruger Hugo's funktion, så vil du kunne oprette hele stien på én gang.

nifty function, Hugo :o)

Den er ikke helt uden evner nej :-)
Tog mig også lidt tid at få den til at spille. (de engelske kommentarer skyldes at app. den bruges i er til en engelsk kunde)