آيا اين فايل وجود داره؟

[ASedJavad]

سلام
يه سوال خيلي خيلي آسون كه هرچي گشتم پيدا نكردم:
از كجا مي شه فهميد يه فايل وجود داره يا نه؟

[majjjj]

با این تابع


Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long

[maryamb]

برای پوشه هم از این دستور استفاده می شه:

Dim FSO As New FileSystemObject
If Not (FSO.FolderExists(App.Path & "\data\" & salmali)) Then
MsgBox "پوشه مورد نظر موجود نیست", vbCritical
end if

[Mbt925]

برای تشخیص وجود فایل/فولدر از متد Dir استفاده کنید.

در صورت وجود اسم خود فایل برگردونده میشه.



Dir(Path, vbDirectory)


برای مثال، برای اینکه ببینید فایل/فولدر a در مسیر c:\ وجود داره، بصورت زیر عمل کنید:





If Dir("c:\a", vbDirectory) = "" Then
"File/Folder Not Exist"
Else
"File/Folder Exist"
End If

[majjjj]

این درصورتی هست که شما بدونین کجا رو میخواهید سرچ کنید نه کل هارد رو