Das kann erst recht nicht sein...
18.08.2002 19:32:21
Ramses
Hallo Volker,Das mit der fehlenden On_Error_Anweisung ist tatsächlich beim kopieren passiert.
Sorry, allerdings tut es nichts zur Sache.
Der Rest ist allerdings unverständlich. Getestet mit E97, E2000 und EXP, allerdings BS WindowsXP. Ob das einen Einfluss hat ?
So wie du es gelöst hast kann es eigentlich erst recht nicht funktionieren, weil drei Zeilen oberhalb im Code die Variable strDateiname aus dem Pfad und der Dateierweiterung zusammengesetzt wird.
strDateiname = Dir(Path & "\" & DEW)
Mit deiner Lösung
StoreDate = Format(FileDateTime(Path & "\" & strDateiname), "dd.mm.yyyy")
würde die Variable strDateiname übersetzt lauten:
StoreDate = Format(FileDateTime("C:\C:\*.xls"), "dd.mm.yyyy")
... und das dies funktioniert,... kann ich eigentlich nicht glauben.
Als Dateierweiterung würde auch nur "xls" reichen und das ganze läuft auch ohne Formatanweisung. Der Wechsel in das Laufwerk oder in das Verzeichnis ist nicht nötig, da, wie du bereits bemerkt hast, das ganze über i aufgefangen wird.
Dieses Segment mit dem Pfad kann nicht fehlerhaft sein, weil Hajo die identische Abfrage hat und auch keinen Wechsel des Laufwerks oder in das Verzeichnis hat.
Gruss Rainer