چک کردن یک فایل در کنار فایل اصلی!!!

[Salivan]

سلام دوستان

(اسم دیگه ی برای این موضوع پیدا نکردم)

من یه برنامه نوشتم و می خوام وقتی برنامه باز می شه .
یه فایل (Exe , OCX , Dll) که داخل همون فولدر خودش هست رو چک کنه!
اگه فایل بود برنامه اون رو اجرا کنه و برنامه هم شروع به کار کردن کنه!
ولی در صورتی که اون فایل وجود نداشت برنامه کار نکنه و بسته بشه!
حالا اون قسمتی که فایل رو چک می کنه و بود یا نبودش رو تشخیص میده رو نمیتونم بنویسم!
ممنون میشم راهنمایی کنید!

[/b]

[ΛΛ Θ l-l $ Σ Ω]

سلام بااستفاده از این API میشه چک کرد که فایل ما وجود داره یا نه
اگرفایل وجود داشته باشد مقداربرگشتی تابع یک خواهد بود ودرصورت عدم وجود مقداربرگشتی، صفرخواهد بود .

کد:

Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

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

[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]

سلام.
میتونید از دستورات داخلی خود ویبی هم استفاده کنید.
دستور dir که اگه فایل موجود باشه اسمشو بر میگردونه. در غیر این صورت پوچ بر میگردونه.

کد:

If Dir(adrs) = "" Then End

[Salivan]

ممنون میشم اگه یه مثال بذارید!
چون نتونستم اینجوری !

---

با سلام

کد:

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 کنار برنامه نباشه برنامه باز نمیشه

آقا hamed_Arfaee خیلی ممنون با کده شما تونسم!
حالا آگه ادامه سوالم رو خونده باشین!
گفتم که خوب اگه فایل مورد نیاز نبود که یه پیغام مبنی بر نبودن فایل بده!
که خوب این رو با :
MsgBox "!!!", vbInformation
اگر بوووود اون فایل رو اجرا کنه و خودش هم باز شه!
یعنی مثلا اگه فایل مورد نیاز یه گیم باشه!
گیم باز شه!
و برنامه ی که نوشته شده هم در کنار اون باز شه!

[ΛΛ Θ l-l $ Σ Ω]

کد:

Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long

Private Sub Form_Load()
  Text1.Text = PathFileExists("c:\boot.ini")
End Sub

بیا اینم مثال.

[Payman62]

سلام.

کد:

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

[Salivan]

سلام.

کد:

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

می دونم که با دستور Shell میشه این کار رو کرد!
ولی می خوام اینا تو یه پوشه باشن!
که تو سیستم های دیگه هم اجرا بشه!
یعنی از یه پوشه ی ثابت بارگذاری بشه!
مثلا اگه بنویسم:

کد:

Shell "C:\Game.exe"

اگه داخل یه سیستم دیگه درایو C نباشه!
اجرا نمیشه!

[Payman62]

سلام.
خوب بستگی داره گیم کجا کپی شده باشه. اگه کنار خود برنامست با app.path مسیر برنامه به دست میاد و بعد هم اسم گیم.

[Salivan]

یعنی اینجوری:

کد:

Shell "app.path. *.exe"

[Salivan]

بلاخره پیدا کردم!
آقا از همتون ممنونم!
خیلی خیلی کمک کردین!

کد:

Shell (App.Path & "\File.exe")