Der findes nok en nemmere metode, men den her funker.
Private Sub Command1_Click()
Dim nFileNum As Integer
nFileNum = FreeFile
On Error GoTo ErrorHandler
Open App.Path & "\\
filnavn.txt" For Input As nFileNum
Close nFileNum
If (nFileNum) Then Label1 = "Filen eksisterer!"
ErrorHandler:
If Error(Err.Number) <> "" Then
Label1 = "Filen eksisterer ikke!"
Exit Sub
End If
On Error GoTo 0
End Sub
..du kan erstatte
filnavn.txt med navnet på den fil du vil tjekke.
Indlæg senest redigeret d. 18.12.2007 09:06 af Bruger #12107