چطور می تونم توی VB hc تابع FileExists از توابع Api یندوز ستفاده کنم؟

[mbshareat]

من می خواهم بدانم یک فایل از قبل موجود بوده یا نه ونیز یک دایرکتوری .در مورد فایل از On Error استفاده کردم ولی در مورد شاخه دیگه نمی تونم اینکار رو بکنم.ممنون می شم اکه برام فایل متنی توابع Api ویندوز رو هم بذارین.من فایت Text وابع رو دارم که همراه VB 4 بود ولی شامل این توابع نیست و خیلی قدیمیه.:چشمک:


صد دوست کم و یک دشمن بسیار!

[xxxxx_xxxxx]

Private Declare Function PathIsDirectoryA Lib "shlwapi.dll" (ByVal pszPath As String) As Long

به تابع مسير فولدر رو بديد اگر مقدار برگشتي صفر نبود يعني اون مسير وجود داره.
موفق باشيد/

[ayub_coder]

می تونی از FSO هم استفاده کنی که قابلیت های زیادی داره

[mbshareat]

از دوستان خیلی ممنونم من تو یه سایت به تابع $Dir برخوردم.در ضمن ممنون می شم اگه بگین FSO یعنی چی؟

[شاپرک]

Public Function FileExists(ByVal sfilename As String) As Boolean
Dim sfile As String
On Error Resume Next
FileExists = False
sfile = Dir$(sfilename)
If (Len(sfile) > 0) And (err = 0) Then
FileExists = True
End If
End Function