مساعدة باستعراض ملفات في الحاسوب

[ازهر عبد العزيز]

السلام عليكم ....

في النموذج Fleader احتاج عند الضغط على زر explore_folder يفتح لي فولدر موجود في البارتيشن z اسمة يشابة الاسم الموجود في الحقل namel بمعنى عند الضغط على الزر  explore_folder وكان الاسم الموجود في الحقل namel هو a يفتح لي فولدر a الموجود في بارتيشن z  وهكذا بقية الااسماء 

ffff.accdb

[محمد أبوعبدالله]

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

تفضل اخي الكريم

Dim fpath As Variant
Dim fpathz As Variant
With Application.FileDialog(3)
    .Title = "Choose File"
    .Filters.Clear
      .Filters.Clear
      .Filters.Add "All Files", "*.*"
      .InitialFileName = "Z:\" & Me.X1.Column(1) & "\"
    .AllowMultiSelect = False
    .InitialFileName = ""
    
 If .Show = -1 Then
   fpathz = .SelectedItems(1)
 End If
End With

ffff.rar

تحياتي

[ازهر عبد العزيز]

الاستاذ محمد أبوعبدالله جزيل الشكر فعلا ابداع 

[محمد أبوعبدالله]

بالتوفيق اخي الكريم

تحياتي