البحث عن ملف في جهازي

عليكم السلام ورحمة الله وبركاته

استخدم الإجراء التالي

Function file_exist(file_name As String) As Boolean

On Error GoTo Not_exist

Name file_name As file_name

file_exist = True

Exit Function

Not_exist:

file_exist = False

End Function

ومن ثم تستطيع البحث عن وجود الملف كالتالي

If file_exist("c:\setup.exe") = True Then
MsgBox ("الملف موجود")
End If

طبعاً لا تنس تضع عنوان الملف المطلوب البحث عنه مع مساره .. والله الموفق

السلام عليكم

شكرا أخي المتميز على الرد ولكن هنا ملاحظه بسيطه وهي أنني لايمكن أن أعرف مسار الملف فالمستخدم قد يقوم بإنزال الملف على Cأو Dأو F وتحت مجلد يقوم باختيار إسمه هو فبالتالي تحديد المسار سيكون صعبا

فهل فهمت مقصدي ..... أعتقد ذلك

جزاك الله خيرا

انظر في توقيعي ستجد موضوع فيه ما تحتاج

و السلام عليكم

بمجرد ما يشتغل البرنامج اول مرة ضع مسار الملف فى الرجيسترى

ولما يشتغل البرنامج بعمل check على قيمة الريجيسترى و يتأكد من وجود الملف بعد ذلك فى المسار المخزن