'================================================================
'= ファイルの有無をチェック

'=    (PathFindExists.bas/P)
'================================================================

' 指定のファイルの有無をチェック
Declare Function Api_PathFileExists& Lib "shlwapi" Alias "PathFileExistsA" (ByVal lpszPath$)

Var FileName As String
Var Ret As Long

FileName = "c:\fbasicv63\bin\fbasic.exe"
    GoSub *judge
FileName = "c:\fbasicv63\bin\fbasicv63.exe"
    GoSub *judge

Stop
End

'----------------------------------------------------------------
*judge
Ret = Api_PathFileExists(FileName)

If Ret <> 0 Then
    Print FileName & "は存在します！"
Else
    Print FileName & "はありません！"
End If
Return