Dateien umbennenen

Bild

Betrifft: Dateien umbennenen von: Rene
Geschrieben am: 06.02.2005 21:39:20

Moin zusammen,

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
Bild


Betrifft: AW: Dateien umbennenen von: Ramses
Geschrieben am: 06.02.2005 21:44:25

hallo

Gibt es da eine Beziehjung zwischen den txt und ps Dateien, oder sollen die PS Dateien auch einfach aufsteigend umbenannt werden.

Gruss Rainer


Bild


Betrifft: AW: Dateien umbennenen von: Rene
Geschrieben am: 06.02.2005 21:56:00

Hallo Rainer,

Die PS Dateien sollen auch aufsteigen benannt werden.

gruß Rene


Bild


Betrifft: AW: Dateien umbennenen von: Ramses
Geschrieben am: 06.02.2005 22:02:04

Hallo

probier mal

Option Explicit

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 "MP" & Format(Zaehler, "000") & ".TXT"
    Zaehler = Zaehler + 1
    Dateiname = Dir
Loop
Zaehler = 0
Dateiname = Dir("*.PS")
Do Until Dateiname = ""
    Name Dateiname As "MP" & Format(Zaehler, "000") & ".PS"
    Zaehler = Zaehler + 1
    Dateiname = Dir
Loop
End Sub


Das Dummy muss wirklich nicht sein :-)

Gruss Rainer


Bild


Betrifft: AW: Dateien umbennenen von: Rene
Geschrieben am: 06.02.2005 22:09:10

Hi Rainer,

Klappt bestens, mit dem Dummy wußte ich eben nicht was das auf sich hatte.

Danke dir noch mal

gruß rene


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Dateien umbennenen"