title image


Smiley Re: Bei klappt das leider nicht so wie gewünscht !
Das geht etwa so:



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



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: