ايران ويج

(۰۴-اسفند-۱۳۸۷, ۱۵:۴۷:۴۹)hamed_Arfaee نوشته است: [ -> ]با سلام

کد:

Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
Public Function FileExist(FPath As String) As Boolean
FileExist = CBool(PathFileExists(FPath))
End Function

اینم یه ای پی آی :
نمونه استفاده :

کد:

Private Sub Form_Initialize()
if Not FileExist(app.path & "\need.ocx") then
end
end if
End Sub

تو این مثال اگه فایل need.ocx کنار برنامه نباشه برنامه باز نمیشه

(۰۵-اسفند-۱۳۸۷, ۱۳:۳۵:۰۸)Payman62 نوشته است: [ -> ]سلام.

کد:

Private Sub Form_Load()
If Dir(FileAdrs) = "" Then
MsgBox "File not found."
End
End If
Shell "Gameadrs"
End Sub