Makro Problem
10.12.2004 19:42:11
Torben
Sub backup()
s = GetDirectory("Bitte wählen Sie einen Ordner")
If Dir(s, vbDirectory) <> "" Then
'MsgBox s
Else: MsgBox "Fehler"
End If
ChDir s
If Dir("$\backup", 16) <> "" Then
MsgBox "Ordner vorhanden"
Else: MkDir "\backup"
End If
End Sub
Aus "s" weiß er den Pfad wo er das Verzeichnis backup erstellen soll, ich bekomme aber leider nicht hin das er den Ordner BAckup in dem Pfad den er aus s bekommt erstellt,kann mir jemand helfen und wenn möglich auch erklären was falsch ist ?
DANKE !!!
Anzeige