Prüfen ob Datei existiert

Forumthread: Prüfen ob Datei existiert
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Prüfen ob Datei existiert

27.07.2005 15: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

AW: Prüfen ob Datei existiert

27.07.2005 16:58:49

harry
AW: Prüfen ob Datei existiert

27.07.2005 17:14:46

Berni

AW: Prüfen ob Datei existiert

27.07.2005 16: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

AW: Prüfen ob Datei existiert

27.07.2005 17:14:46

Berni

super, du bist ein genie!
danke