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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen