استعراض ملفات PDF في المجلد او المسار

[saffar]

السلام عليكم 

عند ملف من احد المنتديات الاجنبية يستعرض الملفات بعد اختيار المسار وشغال تمام

احببت ان اعدل عليه بحيث يستعرض جميع الملفات في مجلد او مسار في قائمة - بحيث بمجرد النقر او التنقل بالماوس على اسم الملف يستعرضه بدلا من كل مره اختار المسار واختار الملف

 

Viewer.accdb

[ابوخليل]

تفضل

Dim sysFo, sysFi, foldry, filey As Object, i As String, X As Integer
    Set sysFo = CreateObject("Scripting.FileSystemObject")
     With Application.FileDialog(msoFileDialogFolderPicker)
    If .Show Then
        Set sysFi = sysFo.GetFolder(Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1))
    Set foldry = sysFo.GetFolder(sysFi).Files
    For Each filey In foldry
        i = sysFo.GetAbsolutePathName(filey)
        i = UCase(i)
        Text4.AddItem (filey)
    Next
   End If
 End With
    Set sysFo = Nothing
    Set sysFi = Nothing
    Set foldry = Nothing

 

Viewer2.accdb

[kkhalifa1960]

مشاركة مع أستاذنا @ابوخليل تفضل أخي .

استعراض ملفات (بي دي اف)في المجلد او المسار.rar

[Ezril]

محاوله 

متأكد من مواقع اجنبيه!  

شبيه لحل آخر @أبو إبراهيم الغامدي

فوق X'Time

وموضوع أخر لطلبك يدرج بتحديث جديد ( تفريع Auto Folder _To_Itme_ file للمسار محدد كل من غير جدول اذا كان للعمر بقيه 

وهذا تقريبا هو طلبك فقط تحديد مسار ملف " ' " 

 

[saffar]

الاخ   @Ezril 

رمضان كريم علينا وعليكم 

بما انك تحتاج تأكيد ما اذا اني نسخت الملف من مشاركة الاستاذ @أبو إبراهيم الغامدي ونسبتها لغيره من مواقع اجنبية 

اليك اخي العزيز رابط الموقع ( اذا القوانين تسمح بادراج عناوين خارجية) 

access-programmers.co.uk/forums/threads/generic-office-document-viewer.297837

وتاريخ الموضوع 2018 بينما الموضوع في هذا المنتدى 2022

ويمكنك مقارنه الكود ايضا في الاثنين

 

تحياتي وتقبل الله منا ومنكم صالح الاعمال

 

[saffar]

15 ساعات مضت, ابوخليل said:

تفضل

Dim sysFo, sysFi, foldry, filey As Object, i As String, X As Integer
    Set sysFo = CreateObject("Scripting.FileSystemObject")
     With Application.FileDialog(msoFileDialogFolderPicker)
    If .Show Then
        Set sysFi = sysFo.GetFolder(Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1))
    Set foldry = sysFo.GetFolder(sysFi).Files
    For Each filey In foldry
        i = sysFo.GetAbsolutePathName(filey)
        i = UCase(i)
        Text4.AddItem (filey)
    Next
   End If
 End With
    Set sysFo = Nothing
    Set sysFi = Nothing
    Set foldry = Nothing

اولا شكرا على المشاركة

هل بالامكان عرب الملفات في نفس المجلد الحالي 
وعرض اسم الملفات فقط بدون المسار

[Ezril]

محاوله 

ان يفصل قبل وبعد " /"

1-  المسار من قبل "  / " بحقل غير منضم 

2- name file بعد " / " تنزل Next item بحقل قائمة غير منضم 

len /   name file  عند الضغط dim path as string = حقل قائمة  & "/"  & بحقل غير منظم 

Me. W = path

 

 

اما  مع عرض الفولدرات استخدم اسم الملف مع & Count selecteitme 

Name_File&( Total )