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


 



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: