چگونه میتوان با یک if یا elseif بودن 2 فایل را چک رد؟

[R2du-soft]

سلام دوستان خوبید؟
چطوری میتونم با یک if و یا یک elseif جود 2 فایل رو بفهمم؟

که اگر فایل reza.exe در ورایو c و فایل new.exe که کنار فایل exe ویژوال بیسیکم تو پوشه program هست بودن پیغام "هست" نمایش داده بشه؟



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

Private Sub Command1_Click()

If PathFileExists("program\new.exe") = 1 & PathFileExists("c:\reza.exe") = 1 Then

MsgBox ("دوتاشم پيدا شد0")


End If
End Sub

کد بالا عمل نمیکنه!!!
مرسی از شما

[محسن واژدی]

سلام علیکم
کد PathFileExists("c:\program\new.exe") را جایگزین PathFileExists("program\new.exe") در شرط If کنید

موفق باشید

[R2du-soft]

نه داداشی محسن فایل new.exe توی پوشه ی program کنار همین برنامه ای که دارم مینویسم هست
اگرم 2تا فایل تو درایو c باشه باز برنامه هیچ عکس العملی نشون نمیده نه خطا نه نمایش msgbox
!!!!!!!!!!!!!

[محسن واژدی]

If PathFileExists("program\new.exe") = 1 & PathFileExists("c:\reza.exe") = 1 Then

مسیرها را به همان صورتی که عرض شد جایگزین میکنیم، علامت & برای الحاق دو رشته بکار میرود و در کد فوق بایستی از And بجای & استفاده کنیم

موفق باشید