saffar قام بنشر أبريل 16, 2023 مشاركة قام بنشر أبريل 16, 2023 السلام عليكم عند ملف من احد المنتديات الاجنبية يستعرض الملفات بعد اختيار المسار وشغال تمام احببت ان اعدل عليه بحيث يستعرض جميع الملفات في مجلد او مسار في قائمة - بحيث بمجرد النقر او التنقل بالماوس على اسم الملف يستعرضه بدلا من كل مره اختار المسار واختار الملف Viewer.accdb رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر أبريل 16, 2023 مشاركة قام بنشر أبريل 16, 2023 تفضل 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 1 رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر أبريل 16, 2023 مشاركة قام بنشر أبريل 16, 2023 مشاركة مع أستاذنا @ابوخليل تفضل أخي . استعراض ملفات (بي دي اف)في المجلد او المسار.rar رابط هذا التعليق شارك More sharing options...
Ezril قام بنشر أبريل 16, 2023 مشاركة قام بنشر أبريل 16, 2023 محاوله متأكد من مواقع اجنبيه! شبيه لحل آخر @أبو إبراهيم الغامدي فوق X'Time وموضوع أخر لطلبك يدرج بتحديث جديد ( تفريع Auto Folder _To_Itme_ file للمسار محدد كل من غير جدول اذا كان للعمر بقيه وهذا تقريبا هو طلبك فقط تحديد مسار ملف " ' " رابط هذا التعليق شارك More sharing options...
saffar قام بنشر أبريل 16, 2023 الكاتب مشاركة قام بنشر أبريل 16, 2023 الاخ @Ezril رمضان كريم علينا وعليكم بما انك تحتاج تأكيد ما اذا اني نسخت الملف من مشاركة الاستاذ @أبو إبراهيم الغامدي ونسبتها لغيره من مواقع اجنبية اليك اخي العزيز رابط الموقع ( اذا القوانين تسمح بادراج عناوين خارجية) access-programmers.co.uk/forums/threads/generic-office-document-viewer.297837 وتاريخ الموضوع 2018 بينما الموضوع في هذا المنتدى 2022 ويمكنك مقارنه الكود ايضا في الاثنين تحياتي وتقبل الله منا ومنكم صالح الاعمال رابط هذا التعليق شارك More sharing options...
saffar قام بنشر أبريل 17, 2023 الكاتب مشاركة قام بنشر أبريل 17, 2023 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 اولا شكرا على المشاركة هل بالامكان عرب الملفات في نفس المجلد الحالي وعرض اسم الملفات فقط بدون المسار رابط هذا التعليق شارك More sharing options...
Ezril قام بنشر أبريل 17, 2023 مشاركة قام بنشر أبريل 17, 2023 محاوله ان يفصل قبل وبعد " /" 1- المسار من قبل " / " بحقل غير منضم 2- name file بعد " / " تنزل Next item بحقل قائمة غير منضم len / name file عند الضغط dim path as string = حقل قائمة & "/" & بحقل غير منظم Me. W = path اما مع عرض الفولدرات استخدم اسم الملف مع & Count selecteitme Name_File&( Total ) رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان