بررسي وجود يك فايل

[محمدعلي]

سلام دوستان
چطوري ميتونم بررسي كنم فايلي در مسيري مشخص وجود داره يا نه ؟
مثلا ميخوام بگم اگه c:\Boot.in وجود نداشت Print "Yes" در غير اين صورت Print "No" ؟
ممنون

[Di Di]

با استفاده از عنصر FileSystemObject و دستور FileExist

[HoseinVig]

سلام
میتونید از راهی که جناب didi گفتند استفاده کنید.
یه راه شاید ساده تر هم وجود داره و اون هم تابع Dir است این تابع یک پارامتر میپذیرد و مقداری را برمی گیرداند اگر مقداری که برمیگرداند چیزی غیر از null بود یعنی فایل وجود دارد که در این صورت نام خود فایل را برمی گرداند و اگر فایل وجود نداشت رشته null برگردانده می شود.
بنا بر این مثالی که شما زدید بصورت زیر است :

کد php:

If Dir("c:\Boot.ini") = vbNullString Then
 MsgBox "not found"
Else
 MsgBox "Found"
End If 


[kimiafars]

از فایل اگزیست استفاده کنی بهتره هر اسمی که فایل مورد نظر داره رو بهش میدی و تو یه ایف میذاریش

[1120]

سلام دوستان عزیز .

فکر میکنم مطمئن ترین و ساده ترین روش استفاده از تابع PathFileExists هست .

مثال :

کد:

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

Private Sub Form_Load()
Me.AutoRedraw = True
Me.Print CBool(PathFileExists("c:\windows\TASKMAN.exe"))
End Sub

موفق باشید .

[محمدعلي]

سلام دوستان عزیز .

فکر میکنم مطمئن ترین و ساده ترین روش استفاده از تابع PathFileExists هست .

مثال :

کد:

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

Private Sub Form_Load()
Me.AutoRedraw = True
Me.Print CBool(PathFileExists("c:\windows\TASKMAN.exe"))
End Sub

موفق باشید .

آقا با این روش اگه فایل هم هـ ـاید یــا سیستمی باشه ، بازهم جواب میده ؟

[Payman62]

سلام.
بله هیدن و سیستمی رو هم نشون میده.