عرض ملفات موجودة فى مسار محدد فى Listbox

[User user]

لدى فولدر موجود فى برتيشن على الجهاز محتاج اعرض الملفات الموجود فيه فى ليست بوكس بشرط كود العميل 
لارسالها فى رسالة ايميل 
كمثال التالى 
13-10-2021 - اسم العميل - رقم العميل D:\ED\Reports\1000
وهذا كود لـــ @د.كاف يار بيعرض المسار فى رسالة 

Dim fso As Object
Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Dim i As Integer
Dim FilePath As String
Set oFSO = CreateObject("Scripting.FileSystemObject")
 
Set oFolder = oFSO.GetFolder("مسار المجلد")
 
For Each oFile In oFolder.Files
 
    FilePath = FilePath & vbNewLine & oFile.Name
  
Next oFile

MsgBox FilePath

[ابو جودي]

14 دقائق مضت, User user said:

لدى فولدر موجود فى برتيشن على الجهاز محتاج اعرض الملفات الموجود فيه فى ليست بوكس

هذا كلام مفهوم وان شاء الله مقدور عليه بأمر الله 

ولمن استوقفتني تلك العبارة

15 دقائق مضت, User user said:

بشرط كود العميل 

فعلا لم اقدر على الفهم 

[User user]

38 دقائق مضت, ابو جودي said:

هذا كلام مفهوم وان شاء الله مقدور عليه بأمر الله 

ولمن استوقفتني تلك العبارة

فعلا لم اقدر على الفهم 

لدي مثلا عميل رقم الID الخاصة به 1000 وكل التقارير الخاصة به تحمل الID 

محتاج يظهر ملفات العميل ده فقط فى Listbox 

وفقا لId الموجود له فى الفورم الخاصة بالارسال 

ارجوا ان تكون الامور واضحه

[د.كاف يار]

تفضل هذا التعديل

Dim fso As Object, oFSO As Object, oFolder As Object, _
oFile As Object, FilePath As String, SetFileName As Variant, CastumerID As Integer

    CastumerID = 1

Set oFSO = CreateObject("Scripting.FileSystemObject")
 
With Application.FileDialog(msoFileDialogFolderPicker)
    If .Show Then
        Set oFolder = oFSO.GetFolder(Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1))
         
        For Each oFile In oFolder.Files
            SetFileName = Split(Mid(oFile.Name, InStrRev(oFile.Name, "\") + 1), ".")(0)
            
            If SetFileName = CastumerID Then
                FilePath = FilePath & vbNewLine & Mid(oFile.Name, InStrRev(oFile.Name, "\") + 1)
            End If
          
        Next oFile
    End If
End With
MsgBox FilePath

و لا تنسى اضافة المكتبة

[User user]

6 ساعات مضت, د.كاف يار said:

تفضل هذا التعديل

Dim fso As Object, oFSO As Object, oFolder As Object, _
oFile As Object, FilePath As String, SetFileName As Variant, CastumerID As Integer

    CastumerID = 1

Set oFSO = CreateObject("Scripting.FileSystemObject")
 
With Application.FileDialog(msoFileDialogFolderPicker)
    If .Show Then
        Set oFolder = oFSO.GetFolder(Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1))
         
        For Each oFile In oFolder.Files
            SetFileName = Split(Mid(oFile.Name, InStrRev(oFile.Name, "\") + 1), ".")(0)
            
            If SetFileName = CastumerID Then
                FilePath = FilePath & vbNewLine & Mid(oFile.Name, InStrRev(oFile.Name, "\") + 1)
            End If
          
        Next oFile
    End If
End With
MsgBox FilePath

و لا تنسى اضافة المكتبة

اشكرك على تعبك اخى الكريم @د.كاف يار
محتاج عند فتح الفورم  يظهر الملفات المرتبطة برقم العميل  الموجوده فى مسار محدد على برتيشن فى الهارد ويظهر الناتج فى Listbox

[ابوخليل]

22 ساعات مضت, User user said:

لدي مثلا عميل رقم الID الخاصة به 1000 وكل التقارير الخاصة به تحمل الID 

محتاج يظهر ملفات العميل ده فقط فى Listbox 

وفقا لId الموجود له فى الفورم الخاصة بالارسال 

ارجوا ان تكون الامور واضحه

لا ليست واضحة ، وحتى لو شارك الاخوة بعشرات المشاركات فلن تصل الى مطلوبك

ملفات العملاء تختلف اذا كانت من نوع واحد واسم احد الملفات 1000 فلن يتكرر في المجلد ابدا 

وانت تتحدث عن ملفات عدة تحمل الرقم نفسه

حتى تسهل المهمة على اخوتك وتحصل ايضا على اجابة سريعة وكما تحب يجب ان تعطي الموضوع حقه من الشرح وترفق مثالا  حسب حاجتك

الآن عليك بارفاق جزء من قاعدة بياناتك وحاول ان تشرح داخلها المطلوب ان امكن

واهم شيء في موضوعك ان ترفع مع المرفق مجلدا يحتوي على التقارير او يكفي ان ترفق صورة للمجلد  المشتمل على الملفات من اجل يطلع اخوانك على طريقة تسميتك للملفات 

وفقك الله واعانك

[د.كاف يار]

17 ساعات مضت, User user said:

محتاج عند فتح الفورم  يظهر الملفات المرتبطة برقم العميل  الموجوده فى مسار محدد على برتيشن فى الهارد ويظهر الناتج فى Listbox

كما ذكر اخي @ابوخليل

يجب ان نعرف تنسيق اسماء الملفات لديك 

لكي تحصل على معطيات متوافقة مع متطلباتك 

جيب ان تكون طلباتك واضحة و مكتملة