چک کردن وجود یک فایل

[REZADG]

مدیران ترو جون من حذف نکنید جستجو کردم پیدا نکردم
شرمنده ها چطوری میشه بفهمیم توی یک مسیر مشخص یک فایل با نام مشخص وجود داره یا نه
خواستم واضح بگم که شد این

[ƒxmahdi]

chek = Dir(App.Path & "/fx.txt", vbNormal)
If chek <> "" Then
MsgBox "Yes , there is this File"
Else
MsgBox "No , there is not this File"
End If



آدرس فایل



App.Path & "/fx.txt"


موفق باش !

[butterfly8528]

سلام .


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

Private Sub Form_Load()
MsgBox CStr(CBool(PathFileExists("d:\a.txt")))
End Sub


موفق باشید .

[xxxxx_xxxxx]

تشخیص وجود فایل (http://barnamenevis.org/forum/showthread.php?t=168663)
کپی برنامه در دایرکتوری ویندوز (http://barnamenevis.org/forum/showthread.php?t=186947)
تشخیص وجود برنامه (http://barnamenevis.org/forum/showthread.php?t=155511&highlight=%D9%88%D8%AC%D9%88%D8%AF+%D9%81%D8%A7%DB %8C%D9%84)

مگه شما چه کلماتی رو جستجو می کنید؟