title image


Smiley Doch, ich hab dich schon richtig verstanden...
du musst allerdings schon die Spezifika von MKDir beachten - man kann damit immer nur ein Verzeichnis zur Zeit anlegen und nicht Verzeichnisse und Unterverzeichnisse auf einen Schlag.



Wenn du das willst, brauchst du so etwas:



Public Function MakeFolder(FolderName As String)

Dim S As Variant, I As Long, F As String

S = Split(FolderName, "\")

For I = LBound(S) To UBound(S)

If S(I) "" Then

F = F & S(I) & "\"

On Error Resume Next

MkDir F

On Error GoTo 0

End If

Next I

End Function



Und dann:



MakeFolder Me!Kombifeld





Ich hoffe, du hast A2000 oder größer (immer hilfreich, die Access-Version zu wissen!) sonst musst du dich noch mal melden!


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: