title image


Smiley TIPP: Verzeichnis mit Unterverzeichnissen per VBA erstellen


Public Function MakeDir(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





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: