ich habe aus einem Archiv eine Programmierung, die mir Textdateien aus einem Ordner auflistet und das Speicherdatum + Uhrzeit ausliest. Soweit so gut. Jetzt bräuchte ich in der 3. Spalte jeweils noch das "Erstelldatum" und in der 4. Spalte jeweils, AUS der Textdatei die in der gleichen Zeile steht, noch ein Argument, aus der Textdatei selbst. Diese Argument steht immer am gleichem Platz (viertletzte Zeile - 4.Argument)
So sieht das Makro derzeit aus:
Sub Dateiliste()
Dim strFileName As String, strFolder As String, strCreated As String
Dim IngRow As Long
strFolder = "\\C:\Logs" & Cells(1, 2).Value & "\"
Application.ScreenUpdating = False
Call Range(Cells(2, 1), Cells(Rows.Count, 2)).ClearContents
IngRow = 1
strFileName = Dir$(strFolder)
Do Until strFileName = vbNullString
IngRow = IngRow + 1
Cells(IngRow, 1).Value = strFileName
Cells(IngRow, 2).Value = FileDateTime(strFolder & strFileName)
strFileName = Dir$
Loop
End Sub
Für Hilfe bin ich sehr sehr dankbar :)