Hey SoftAid
heb een (gestripte versie) erop gezet omdat hij met VBA er heel verknipt uit kwam
je ziet anders niet meer wat het hoort te zijn.
maar dit is mn scriptje tot nu toe ( maar lukt mij niet om te kunnen zoeken vanaf kolom A en de files worden altijd verticaal getoond
Q:
Sub getfiles()
Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object, sf
Dim i As Integer, colFolders As New Collection, ws As Worksheet
Set ws = ActiveSheet
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.getfolder("\\OX-DC-DATA\Data\4-PRODUCTION\CMR ARCHIEF\2023\")
colFolders.Add oFolder
Do While colFolders.Count <> Range = A
Set oFolder = colFolders(1)
colFolders.Remove 1
For Each oFile In oFolder.Files
If oFile.DateLastModified > Now - 7 Then
ws.Cells(i + 1, 2) = oFile.Name
i = i + 1
End If
Next oFile
For Each sf In oFolder.subfolders
colFolders.Add sf
Next sf
Loop
End Sub
UQ