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

[فؤاد الدلوي]

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

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

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

[ابوأسد]

جرب هذا الكود..

With Application.FileDialog(2)
    .AllowMultiSelect = True
    .Title = "asdf/Title"
    If .Show = -1 Then
        Me.name_folder = .SelectedItems.Item(1) 'يطبع اسم الملف مع المسار
        Dim sFilePath$
        sFilePath = Me.name_folder
        Me.pate = Split(sFilePath, "\")(UBound(Split(sFilePath, "\"))) 'يطبع اسم الملف بدون المسار
    End If
End With

 

[فؤاد الدلوي]

ممنون سيدي ممكن مثال عملي فانا مبتدأ نوعً ما إلا من خلال المثال العملي جزاكم الله تعالى خير الجزاء

[kkhalifa1960]

تفضل أخي مشاركتين لأساتذتي بالمنتدي  استاذ @sandanet

 والأستاذ @مصلح الحريصي