Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Abfrage, ob Datei vorhanden

Abfrage, ob Datei vorhanden
16.11.2006 09:31:44
Torsten
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
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Abfrage, ob Datei vorhanden
16.11.2006 09:33:52
Harald
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
Anzeige
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
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
Anzeige
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
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige