Bitte ein Tipp für folgenden Sachverhalt:
In einem immer selben Verzeichnis liegen mehere Dateien.
Nun sollen alle Dateien mit Endung "*.csv", wenn vorhanden,
unter gleichem Namen -aber mit Endung "xls" umbenannt werden.
Gruss
Franz
Sub DateiUmbennen()
Dim I As Integer
Dim a, b, msg$
With Application.FileSearch
.LookIn = "C:\daten\#test\"
.SearchSubFolders = True
.FileType = msoFileTypeAllFiles
.Filename = "*.csv"
If .Execute() > 0 Then
If .FoundFiles.Count = 1 Then
msg = "Es wurde eine Datei gefunden."
Else
msg = "Es wurden " & .FoundFiles.Count & " Dateien gefunden."
End If
MsgBox msg
For I = 1 To .FoundFiles.Count
a = .FoundFiles(I)
b = Left(.FoundFiles(I), Len(.FoundFiles(I)) - 4) & "xls"
Name a As b
Next I
Else
MsgBox "Es wurden keine Dateien gefunden."
End If
End With
End Sub