مرجع حل مشکلات پیرامون برنامه نویسی ویژوال بیسیک

[ravegoat]

چگونه ميتوان با يك تابع فهميد كه يك فايل در آدرس مورد نظر وجود دارد يا نه.مثلا:
اگرد فايل:"D:\1.exe" وجود داشت
اين فايل را باز كن
متشكرم.
Thanks You.

مي تونيد از اين تابع استفاده كنيد:

Public Function FileExists(sFullPath As String) As Boolean
    Dim oFile As New Scripting.FileSystemObject
    FileExists = oFile.FileExists(sFullPath)
End Function

بعد با دستور زير مي تونيد موجوديت فايل مورد نظر تون رو بررسي و اجرا كنيد:

If FileExist("D:\1.exe") = True Then
Shell("D:\1.exe")
End If

البته فكر كنم كد زير هم كارساز باشه:

If Dir("D:\1.exe") <> "" Then
Shell("D:\1.exe")
End If

منبع1
منبع 2

موفق باشيد
آرمين