Bitte mal schauen...
14.02.2007 12:03:00
Walter
habe gestern versucht eine Lösung zu finden, klappt soweit allerdings
gibt es jetzt noch ein Problem:
Wenn ich das Makro Stück für Stück direkt abarbeite ist alles O.K.
Wenn ich das Makro mittels Command Button versuch, bleibt das Makro hier
stehen:
... KILL...
Fehlermeldung: Laufzeitfehler 53, Datei nicht gefunden !
If Dir("C:\Documents and Settings\" & nam & "\Local Settings\" _
& "Temp\notes9D76E5\*.ncf") "" Then
MsgBox " NCF- Dateien sind/ist vorhanden"
'---------------------------------------------------
Datei = Dir("C:\Documents and Settings\" & nam & "\Local Settings\" _
& "Temp\notes9D76E5\*.*")
Do Until Datei = ""
If UCase(Right(Datei, 3)) UCase("ncf") Then Kill Datei
Datei = Dir
Loop
End If
'---------------------------------------------------
End If
mfg walli