Habe mir gerade das tutorial von Battle-Soft durchgelesen. Hier ein paar "kleine" verbesserungen
private function Exist(Filename as string) as boolean
if dir(Filename) <> "" then Exist = true
if dir(Filename) = "" then Exist = false
end function
Somit hätte man das ganze schneller und leichter ;)
Die gleiche möglichkeit bietet das FSO an:
Projekt > Verweise > Microsoft Scripting Runtime
Dim FSO As FileSystemObject
Private Function Exist(Filename As String) As Boolean
Exist = FSO.FileExists(Filename)
End Function
Private Sub Form_Load()
Set FSO = New FileSystemObject
Exist (App.Path & "\abc.txt")
End Sub