ption Explicit Private FSO As Object Sub CercaPdf(Path As String) Dim Folder As Object Dim SubFolder As Scripting.Folder Dim File As Scripting.File Set FSO = CreateObject("Scripting.FileSystemObject") Set Folder = FSO.GetFolder(Path) For Each File In Folder.Files ActiveSheet.Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = File.Name Next File For Each SubFolder In Folder.SubFolders CercaPdf SubFolder.Path Next SubFolder End Sub
rex88 (nTdQ231201), 31/03/2024 09:52:Aspetto che venga messo [RISOLTA] per aprire una nuova discussione.