السلام عليكم ورحمة الله وبركاته
بســم الله الـرحمــن الرحيــم أحتاج إلى كود ليقوم بعمل مسح على الهارد ديسك للبحث عن إسم ملف معين
وأرجو من الإخوة الرد سريعاً نظرا لأنى أقوم بعمل مشروع التخرج وأحتاج هذا الكود فى أسرع وقت وجزاكم الله خيراً
أرجو الرد سريعا لأنى فى حاجة إلى ذلك
وعليكم السلام ،لو بحثت بالمنتدى اكيد بتلاقي حل ،لكن اليك هذا الكود يقوم بما تريد
currentDir = CurDir$
currentDir = currentDir + "\*.*"
Dir (currentDir)
Do While Len(currentDir)
Debug.Print currentDir
currentDir = Dir
Loop