Änderungsdatum und Dateigröße
02.07.2017 13:35:53
Sergej
ich brauche bitte euere Unterstützung. Ich markiere eine Zelle, die als Zellinhalt den Pfad incl. Dateiname beinhaltet, dann starte ich das Makro und bekomme in zwei Spalten nach rechts den Änderungsdatum der Datei und eine Spalte weiter die Dateigröße in KB. Das funktioniert soweit!
Frage: Was muss ich bitte im Code ändern, damit ich gleichzeitich mehrere Zellen mit dem Pfad/Dateiname auswählen kann und in Spalten nach rechts das Änderungsdatum und Dateigröße bekomme?
Sub Refresh()
'T:\artur\Debitorenposten - (Ansicht)31.xlsx
ActiveCell.Offset(0, 2).Value = FileDateTime(ActiveCell.Value)
ActiveCell.Offset(0, 3).Value = FileLen(ActiveCell.Value) / 1024
End Sub
Gruß,Sergej