AW: Dateien umbennen
30.11.2008 16:15:00
Tino
Hallo,
teste mal diesen Code
Option Explicit
Sub Datei_umbenennen()
Dim Fso, Ordner, varDatei
Dim DateiTemp As String
'ab welcher Zeile einfügen
Set Fso = CreateObject("Scripting.FileSystemObject")
'hier Pfad angeben!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Set Ordner = Fso.getfolder("J:\1 Forum")
'Schleife über alle Dateien im Ordner
For Each varDatei In Ordner.Files
'Dateifilter, Platzhalter verwenden
DateiTemp = Right$(varDatei, Len(varDatei) - InStrRev(varDatei, "\"))
If DateiTemp Like "Test*" And DateiTemp Like "*.txt" Then
DateiTemp = Replace(DateiTemp, "Test", "")
DateiTemp = Left$(varDatei, InStrRev(varDatei, "\")) & Trim$(DateiTemp)
Name varDatei As DateiTemp
End If
Next varDatei
End Sub
Gruß Tino