Hallo beisammen,
bevor ich über meinen Code eine bestimmte Datei lösche
Kill "G:\Extern\Kontierungshilfe\Kontierungshilfe_R2.xls"
möchte ich abfragen, ob sie überhaupt existiert. Wie mach' ich das?
Für Eure Hilfe im voraus besten Dank.
Gruß
Torsten
Hallo Torsten
If Dir("G:\Extern\Kontierungshilfe\Kontierungshilfe_R2.xls"
) = "" Then MsgBox "Gesuchte Datei wurde nicht gefunden."
Gruss Harald
AW: Abfrage, ob Datei vorhanden
16.11.2006 09:50:07
Torsten
Hallo Harald,
vielen Dank für Deine Rückmeldung.
Wie sieht denn die Syntax für den Wahrheitsfall aus, also wenn die Abfrage ergibt, dass es die Datei bereits gibt?
Gruß
Torsten
AW: Abfrage, ob Datei vorhanden
16.11.2006 10:13:58
Harald
Hi nochmal,
dachte wer mit Kill arbeitet, braucht nur nen Ansatz ;-))
If Dir("G:\Extern\Kontierungshilfe\Kontierungshilfe_R2.xls"
) = "" Then
MsgBox "Gesuchte Datei wurde nicht gefunden."
else
die Killanweisung
end if
Gruss Harald
Anzeige
AW: Abfrage, ob Datei vorhanden
16.11.2006 09:44:56
Fred
Hallo Torsten,
schnell mal so.
Dat1 = "Kontierungshilfe_R2.xls"
Dat = "G:\Extern\Kontierungshilfe\Kontierungshilfe_R2.xls
If Dir(Dat) Dat1 Then
Mldg = MsgBox("Datei nicht vorhanden", vbYesNo, _
"Schaue mal nach ob Datei vorhanden")
If Mldg = vbYes Then Kill "G:\Extern\Kontierungshilfe\Kontierungshilfe_R2.xls"
End If
Gruss
Fred
AW: erledigt - mT
16.11.2006 10:27:36
Torsten
Hallo Ihr beiden,
manchmal sieht man den Wald vor lauter Bäumen nicht.....:-(
Ich hab's jetzt so gelöst:
If Dir("G:\Extern\Kontierungshilfe\Kontierungshilfe_R2.xls") "" Then
Kill "G:\Extern\Kontierungshilfe\Kontierungshilfe_R2.xls"
Else
End If
Also einfach das " durch ersetzt.
Vielen Dank für Eure Hilfestellungen.
Gruß
Torsten