Überprüfen ob datei existiert Verfasst am: 21.06.2007, 23:30
soooo leutz,
ich will überprüfen ob eine datei vorhanden ist, dazu benutzte ich folgenden einzeiler:
[code]If Dir("C:\test.exe") <> "" Then MsgBox "Datei ist da!"[/code]
das funktionioniert perfekt, nun habe ich das problem das wenn eine datei den status "versteckt" hat, dass ich sie so nicht suchen kann. Hat jemand vielleicht eine lösung?
mfg
player
Teto_ Poster
Anmeldedatum: 28.02.2007 Beiträge: 106
Verfasst am: 22.06.2007, 05:58
Hier haste was
Code:
Public Function FileExists(ByVal FileName As String) As Boolean
On Error Resume Next
FileExists = (Len(Dir$(FileName, vbDirectory Or vbHidden Or _
vbNormal Or vbReadOnly Or vbSystem)) <> 0)
End Function
Private Sub Form_Load()
If FileExists("C:\Dokumente und Einstellungen\Default User\test.txt") = True Then
Label1.Caption = "Gut"
Else
Label1.Caption = "Schlecht"
End If
End Sub
Registrieren
Login
