السلام عليكم ورحمة الله وبركاته أريد كود يبحث عن ملف معين في جهاز الكمبيوتر دون تحديد أي من الأقراص " C أو D" أكتب اسم الملف في الكود وعند الضغط على زر أمر ينفذ الكود عملية البحث ويظهر رسالة في النهاية بالعثور على الملف من عدمه0 للأسف لم أتوصل لذلك الكود ولكن توصلت لكود يبحث في القرص المحدد وهو التالي: Dim dmar As Variant Set fs = Application.FileSearch With fs    .NewSearch    .LookIn = "C:\"    .FileName = "Eidd*.*"     .SearchSubFolders = True    If .Execute > 0 Then