تعديل كود قائمة بأسماء الملفات داخل مجلد

[مداد_1423]

تحية طيبة يا سادة ، وأدعوا الله بالتوفيق أن يديم عليكم لباس الصحة 

وبعد:-

 

Sub LoopThroughFiles()
 
Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Dim i As Integer

    Range("A:A").ClearContents
    
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("D:\TEST_2\FILES")
For Each oFile In oFolder.Files
    Cells(i + 1, 1) = oFile.Name
    i = i + 1
Next oFile

End Sub

أريد أن يكون المجلد الداخلي فقط ثابت FILES

أما المسار الذي قبله متغير كل أسبوع تقريبا

فا ليت أحد يتكرم بتعديل الكود ليكون المسار في الكود نفس مسار الملف مع المجلد  الداخلي FILES

بعبارة أخرى : يكون المسار متغير ، والملف الذي فيه الكود مع مجلد FILES ثابت

مثال:

Set oFolder = oFSO.GetFolder("\FILES")

شكرا لك من مر من هنا ,, وأخص بالشكر والدعاء من ساعدني 

تحياتي

TEST_2.rar

[مداد_1423]

للرفع