Dateiliste
01.11.2019 10:59:14
Herbert
mit dem nachstehenden Code erhalte ich eine Dateiliste vom Desktop, mit dem Datei-Datum.
Sub DateilisteMitVerknüpfungsziel()
Dim strFileName$, strFolder$, lngRow&, objArr As Object, vArr(1 To 1, 1 To 2)
strFolder = "C:\Users\...\Desktop\"
Set objArr = CreateObject("scripting.dictionary")
Application.ScreenUpdating = False
Columns(1).Clear
Columns(2).Clear
strFileName = Dir$(strFolder)
Do Until strFileName = vbNullString
lngRow = lngRow + 1
vArr(1, 1) = strFileName
vArr(1, 2) = FileDateTime(strFolder & strFileName)
objArr(lngRow) = vArr
strFileName = Dir$
Loop
ActiveSheet.Cells(1, 1).Resize(objArr.Count, UBound(vArr, 2)) = _
Application.Transpose(Application.Transpose(objArr.items))
Application.ScreenUpdating = True
Set objArr = Nothing
End Sub
´So weit so gut. Doch nun möchte ich, anstatt des Datums, das Verknüpfungsziel ausgeben. Doch finde ich leider nix dazu im INet. Habt ihr evtl. eine Lösung?
Vielen Dank im Voraus.
Servus