Hej!
Om jag vill kolla om databas filen finns när programet startar, hur skulle man kunna göra det?

Jag anger sökvägen i en ini fil: DBFileName = GetIni("Databasinfo", "Path", App.Path & "\info.ini")

Sökvägen i ini filen kan ju finnas fast användaren har flyttat på filen.

/Tomas

Public Function FileExists(FileName As String) As Boolean
Dim Length As Long
On Error Resume Next
Length = FileLen(FileName)
FileExists = (Length > 0) And (Err.Number = 0)
End Function

Ett alternativ är att använda FileSystemObjectet och medtoden FileExist

Tackar för hjälpen, jag löste det så här:

Dim fil As String
fil = GetIni("Databasinfo", "Path", App.Path & "\info.ini")
If Dir(fil) <> "" Then
frmMain.StatusBar1.Panels.Item(2).Text = "Sökväg till Databasen: " & GetIni("Databasinfo", "Path", App.Path & "\info.ini")
Else
MsgBox "Ange sökväg till Databasen."
mnuDatabasen_Click
End If

Nackdelen med dir är att om du har en tom sträng retunerar den första filnamnet i aktuell katalog. Eller om du angivit * eller nåting liknande retunerar den oxå första filnamnet. GetLEngth. Accesar filen. Misslyckas den retunerar den ett fel.