فورم بحث في ملفات الكومبيوتر

[Fouad Aldalwe]

السلام عليكم ورحمة الله وبركاته. أساتذتي الأعزاء:

هل بالإمكان تصميم فورم بحث في ملفات الكومبيوتر عن ملف أو مجلد ما. مع فائق التقدير

[sandanet]

طبعا ممكن كالتالي:

Dim strComputer As String
Dim XobjWMI As Object
Dim XFolders As Object
Dim fs As Object
Dim objFolder As Object
Dim myfile As String

strComputer = "."  
            
            Set XobjWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
            Set XFolders = XobjWMI.ExecQuery("select * from Win32_Directory where Name Like '%:\\%'")
    
        
        For Each objFolder In XFolders
            Set fs = CreateObject("Scripting.FileSystemObject")
    
        If fs.FileExists(objFolder.Name & "\test.mdb") = True Then
        myfile = objFolder.Name & "\test.mdb"

                Exit For
                End If

           
        Next

الكود السابق يستخدم للعثور على مسار ملف ما مثلا (test.mdb) على الكمبيوتر باستخدام Windows Management Instrumentation (WMI) و FileSystemObject.

بامكانك عمل فورم فيه خانة بحث ووضع الكود السابق في حدث بعد التحديث واستبدل الاسم test.mdb باسم مربع البحث مثلا me.search لكي يتم اخذ اسم الملف المراد البحث عنه من خانة البحث.

تم تعديل أغسطس 16, 2023 بواسطه sandanet