![]() |
|
Tipp 0012
|
Existenz einer Datei prüfen
|
 |
|
Autor/Einsender:
Datum: |
|
Detlev Schubert
13.01.2001 |
|
| Entwicklungsumgebung: |
|
VB 5 |
|
|
|
Leider wird oft versucht, eine Datei gewaltsam zu öffnen, um zu prüfen, ob diese existiert.
Dazu wird in der Regel die Fehlerbehandlung ausgeschaltet, und dann getestet, ob Err größer als 0 ist.
Dass es auch etwas eleganter geht, zeigt der folgende Tipp.
|
|
| |
Option Explicit
Private Function FileExists(Datei As String) As Boolean
On Error Resume Next
FileExists = Dir$(Datei) <> ""
FileExists = FileExists And Err = 0
On Error GoTo 0
End Function
Private Sub Command1_Click()
If FileExists(Trim$(Text1.Text)) = True Then
MsgBox "Datei" & Trim$(Text1.Text) & " existiert.", _
vbInformation + vbOKOnly, Form1.Caption
Else
MsgBox "Die Datei " & Trim$(Text1.Text) & " existiert" & _
"leider nicht.", vbCritical + vbOKOnly, Form1.Caption
End If
End Sub
|
|
|
|
|
|
|
|
|
|
Der hier abgebildete Code funktioniert auch in einem VBA-Projekt, dieser muss dazu lediglich
in den VB-Editor der entsprechenden Anwendung kopiert werden. Ein Import der im Download
enthaltenen *.frm-Datei ist nicht möglich.
|
|
| Windows-Version |
| 95 |
 |
|
| 98/SE |
|
|
| ME |
|
|
| NT |
|
|
| 2000 |
|
|
| XP |
|
|
| Vista |
|
|
| Win
7 |
|
|
|
| VB-Version |
| VBA 5 |
|
|
| VBA 6 |
|
|
| VB 4/16 |
|
|
| VB 4/32 |
|
|
| VB 5 |
|
|
| VB 6 |
|
|
|
|
Download (2 kB)
|
Downloads bisher: [ 2946 ]
|
|
|
Vorheriger Tipp
Zum Seitenanfang 