Tjekke om en fil eksistere

Tags:    visual-basic

Hej Experter

Hvordan kan jeg via visual basic tjekke om en fil der ligger i mit programs mappe, eksistere.



Nu kender jeg ikke Visual Basic, men du kunne vel loade filen som i C++ "ofstream" og så se om den variabel du havde loadet den ind i eksisterede...
if(x)
{
bla bla
}



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
t