Gruppe
Datei
Bereich
Zeit
Thema
Neueste Textdatei eines Verzeichnisses suchen und umbenennen
Problem
Wie kann ich in einem vorgegebenen Verzeichnis die neueste Textdatei suchen und diese umbenennen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub RenameTextFile()
Dim dat As Date
Dim iCounter As Integer
Dim sFile As String, sPath As String
sPath = Range("B1").Value
If Right(sPath, 1) <> "\" Then
sPath = sPath & "\"
End If
With Application.FileSearch
.LookIn = Left(sPath, Len(sPath) - 1)
.FileName = "*.txt"
.SearchSubFolders = False
.Execute
For iCounter = 1 To .FoundFiles.Count
If FileDateTime(.FoundFiles(iCounter)) > dat Then
sFile = .FoundFiles(iCounter)
End If
Next iCounter
End With
If sFile <> "" Then
If Dir(sPath & "letzte.txt") <> "" Then
Kill sPath & "letzte.txt"
End If
Name sFile As sPath & "letzte.txt"
MsgBox "Die Datei" & vbLf & _
sFile & vbLf & " wurde umbenannt in " & vbLf & _
sPath & "letzte.txt"
Else
MsgBox "Es wurde keine Textdatei gefunden!"
End If
End Sub