Dateien umbennenen
06.02.2005 21:39:20
Rene
Habe folgendes Problem.Ich habe hier folgenden Code für meine Bedürfnisse gefunden und angepaßt:
Sub TXT_Dateien_Umbenennen()
Dim Dateiname As String, Zaehler As Integer
Zaehler = 0
ChDrive ("c:\")
ChDir ("C:\Temp")
Dateiname = Dir("*.TXT")
Do Until Dateiname = ""
Name Dateiname As "dummy.TXT"
Name "dummy.TXT" As "MP" & Format(Zaehler, "000") & ".TXT"
Zaehler = Zaehler + 1
Dateiname = Dir
Loop
End Sub
dieder geht auch prima so wie er soll(für was aber das "dummy.txt" ist weiß ich nicht) :(
Nun möchte ich aber das gleiche für "PS" Dateien haben diese müßten aber dann genauso heißen wie die Txt dateien Beispiel:
Mp000.txt
Mp000.ps
Mp001.txt
Mp001.ps
habe probiert den gleichen Code für die "PS-Datei" zu nehmen aber da ändert er mir den Namen nicht richtig. Hat jemand einen Rat?
Gruß Rene
Anzeige