Hallo,
ich versuche viele Dateien mit VBA umzubennen, ich habe nun ein Modul geschrieben, welches "X" mit "Y" im Namen tauschen kann.
Nur leider geht das bis jetzt nur mit einer Variable. Ich würde gerne beliebig viele Variabeln umbennen können also z.B. "x" zu "y" , "c" zu "v" ...
Hier einmal das funktionierende Modul:
Sub Ordner_Auslesen()
Dim fso As New FileSystemObject
Dim Pfad As String
Dim Ordner As Files
Dim Datei As File
Pfad = Tabelle1.Range("B1").Value
If fso.FolderExists(Pfad) Then
Set Ordner = fso.GetFolder(Pfad).Files
For Each Datei In Ordner
If InStr(Datei.Name, Tabelle1.Range("A3").Value) <> 0 Then
Datei.Name = Replace(Datei.Name, Tabelle1.Range("A3").Value, Tabelle1.Range("B3").Value)
End If
Next Datei
Else
MsgBox "Dieser Ordner existiert nicht"
End If
Und hier wie ich es versucht habe um es zu verdeutlichen:
Sub Ordner_Auslesen()
Dim fso As New FileSystemObject
Dim Pfad As String
Dim Ordner As Files
Dim Datei As File
Pfad = Tabelle1.Range("B1").Value
If fso.FolderExists(Pfad) Then
Set Ordner = fso.GetFolder(Pfad).Files
For Each Datei In Ordner
'Debug.Print Datei.Name
If InStr(Datei.Name, Tabelle1.Range("A3:A4").Value) <> 0 Then
Datei.Name = Replace(Datei.Name, Tabelle1.Range("A3:A4").Value, Tabelle1.Range("B3:B4").Value)
End If
Next Datei
Else
MsgBox "Dieser Ordner existiert nicht"
End If
|