Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
640to644
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
640to644
640to644
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Prüfen ob Datei existiert

Prüfen ob Datei existiert
27.07.2005 13:40:01
Krug
hallo leute,
könnt ihr einem unwissenden bitte erklären, wie ich folgendes problem löse:
in jeder zelle steht ein dateipfad, zb C:\ordner\datei.xls
wie kann ich nun prüfen lassen, ob diese dateien tatsächlich existieren?
und zwar so, dass wenn in A1 der pfad steht, soll er in B1 "JA" oder "NEIN" schreiben!
(wie) geht das?
danke schon mal im voraus!
grüße
berni

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfen ob Datei existiert
27.07.2005 14:58:49
harry
hi,
so sollte es gehen:

Sub test()
Dim sFile  As String, iOpen As Integer
Dim fso
For i = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Set fso = CreateObject("Scripting.FileSystemObject")
sFile = CStr(ActiveSheet.Cells(i, 1).Value)
If sFile = "" Then Exit Sub
iOpen = TestOpen(sFile)
Select Case iOpen
Case 0:
ActiveSheet.Cells(i, 2).Value = "JA"
Case 2:
ActiveSheet.Cells(i, 2).Value = "NEIN"
End Select
Next i
End Sub


Function TestOpen(sPath As String) As Integer
If Dir(sPath) = "" Then
TestOpen = 2
Else:
On Error GoTo ERRORHANDLER
Open sPath For Random Access Read Lock Read Write As #1
Close #1
End If
ERRORHANDLER:
If Err = 70 Then TestOpen = 1
End Function

liebe grüße,
harry
Anzeige
AW: Prüfen ob Datei existiert
27.07.2005 15:14:46
Berni
super, du bist ein genie!
danke

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige