Datei per VBS umbenennen - wie?

Computer: Software & Programmierung JavaScript & Script-Sprachen
#1

Hallo!

Wie lautet der VBS-Befehl zum Umgenennen einer Datei?

Danke schon mal!

Michael

#2

Hallo Michael,

Wie lautet der VBS-Befehl zum Umgenennen einer Datei?

Eine explizite Rename-Funktion gibt es nicht:

Da hast Du zwei Möglichkeiten:

  1. Eine Funktion mit dem File-Objekt:

    Sub RenameFile( old_name, new_name )
    ’ old_name … Dateiname mit vollständigem Pfad der Datei
    ’ new_name … nur der Dateiname ohne Pfad
    Dim fso, objFile
    Set fso = CreateObject(„Scripting.FileSystemObject“)
    Set objFile = fso.GetFile(old_name)
    objFile.Name = new_name
    End Sub

Achtung: Diese Routine überprüft NICHT ob die Datei old_name wirklich existiert, oder ob die angegebenen Dateinamen gültig sind.

  1. Du kannst auch die Funktion MoveFile verwenden

    Sub RenameFile( old_name, new_name )
    ’ old_name … Dateiname mit vollständigem Pfad der Datei
    ’ new_name … Dateiname mit vollständigem Pfad der Datei
    Dim fso
    Set fso = CreateObject(„Scripting.FileSystemObject“)
    fso.MoveFile old_name, new_name
    End Sub

Hier müssen beide Dateinamen (alt + neu) mit vollständigem Pfad angegeben werden. Es wird nicht auf fehlerhafte Angaben geprüft!

Gruß Guido

#3

Hallo Guido,

Danke!! Das bringt mich schon mal gewaltig weiter!

Gruß

Michael