بررسی وجود داشتن یا نداشتن یک فایل

[toytown]

سلام دوستان


میخواستم بدونم چه طور میشه چک کرد که در سیستم یک فایل وجود داره یا نه و اگر وجود داشت یک متغیر رو برابر 1 کنه و اگر وجود نداشت برابر 0

[محسن واژدی]

سلام
این موضوع قبلا کاملا بحث شده بود، با یک جستجو میتونین به نتایج مفیدی برسین

کد زیر رو ببینین


Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long
Dim ResExist As Boolean
Private Sub Command1_Click()
Dim TarFle$
TarFle$ = "C:\windows"
ResExist = CBool(PathFileExists(TarFle$))
MsgBox "Is exist '" & TarFle$ & "' file?: " & ResExist
End Sub



موفق باشید

[vbhamed]

سلام
اينم يك راه ساده


If Dir$("C:\test.txt") = "" Then ...