Excel vypis adresare s datem vytvoreni souboru Vyřešeno

[Lukanec]

Zdravím,

Mám následující kód pro výpis souborů a adresářů. V buňce "C1" mám cestu k adresáři který chci vypsat. Výpis začíná pozicí A4 až n. Ve sloupci B bych potřeboval k těmto souborům vypsat datum vytvoření. Dokážete prosím poradit jak k výpisu ve sloupci A přiřadit ve sloupci B datum vytvoření daného souboru? Nějak nejsem schopen dát dohromady....Děkuji

Sub seznam()

Range("A3").Select
Range("A3:A17023").Select
Selection.ClearContents
Range("A3").Select

Dim FSO As Object
Dim NalezenoF As Long
Dim NalezenoS As Long

Set FSO = CreateObject("Scripting.fileSystemObject")
Set START = FSO.getfolder(Range("C1"))
Set subfold = START.subfolders

For Each f In subfold
On Error Resume Next
NalezenoF = Range("a:a").Find(what:=f.Name, lookat:=xlWhole).Row
If Err.Number = 91 Then
Cells(Cells(65000, 1).End(xlUp).Row + 1, 1) = f.Name
End If
On Error GoTo 0
Next f

For Each s In START.Files
On Error Resume Next
NalezenoS = Range("a:a").Find(what:=s.Name, lookat:=xlWhole).Row
If Err.Number = 91 Then
Cells(Cells(65000, 1).End(xlUp).Row + 1, 1) = s.Name
End If
On Error GoTo 0
Next s

End Sub

[Reklama]

[atari]

Nápověda (na psaní kodu nemám čas):

s.Name - vypíše jméno
s.DateLastModified - vypíše datum poslední změny

Seznam vlastností (+nápověda) zde: https://docs.microsoft.com/en-us/office ... d-property

[MePExG]

Prikladám riešenie v PowerQuery. Stačí zadať cestu (c3) a aktualizovať tabuľku.