LastDate aus TXT auslesen! Bitte um Hilfe
06.06.2016 13:59:55
Nilo
ich brauch mal Eure Hilfe bei folgendem:
Ich habe diverse TXT Dateien in einem Ordner.
Je nachdem welchen dieser Dateinamen ich jetzt in E14 eintrage, meinetwegen 077889,
möchte ich mir das letzte Änderungsdatum dieser Datei in Zelle D13 anzeigen lassen:
Soweit bin ich gekommen aber das haut noch nicht hin:
Sub Lesen1()
Dim fso As Object
Dim fFile
Dim strDatei As String
strDatei = Sheets("Request_Table").Range("E14")
Set fso = CreateObject("Scripting.FileSystemObject")
Set fFile = ("\\server\Dokumente\LISTEN" & "\" & strDatei & ".txt")
Range("D13") = fFile.DateLastModified
End Sub
Könnt ihr mir bitte Helfen.Besten Dank und Gruß
Nilo