Forums Neueste Beiträge
 

Umbenennen von mehreren Files

21/01/2009 - 14:26 von Dirk | Report spam
Hallo,
ich muss 79 files umbenennen und zwar fangen alle mit bp an. Diese ersten
beiden Buchstaben müssen gelöscht werden der Rest der Dateinamen soll
bestehen bleiben.

Hat jemand eine Idee ??

Danke im Voraus
 

Lesen sie die antworten

#1 Ruediger Roesler
21/01/2009 - 16:39 | Warnen spam
Dirk typed:

ich muss 79 files umbenennen und zwar fangen alle mit bp an. Diese
ersten beiden Buchstaben müssen gelöscht werden der Rest der
Dateinamen soll bestehen bleiben.

Hat jemand eine Idee ??



Syntax error in line number pfeiff. Too much errors! Attempt to create a
screen in deep blue colour. lol "Your are sentenced to BSOD! Five
times!"

Sprache und Programme erfordern eine eindeutige Syntax. Zwo Fràgezeichen
mit einem Leerzeichen können schlecht geparst werden.

' Umbenennen.vbs
Set fso = CreateObject("Scripting.FileSystemObject")

If WScript.Arguments.Count > 0 Then
If fso.FolderExists(WScript.Arguments(0)) Then
Set fsoFolder = fso.GetFolder(WScript.Arguments(0))
For Each fsoFile In fsoFolder.Files
If LCase(Left(fsoFile.Name, 2)) = "bp" Then
WScript.Echo "File " & fsoFile.Name & " is renamed:"
fsoFile.Name = Right(fsoFile.Name, Len(fsoFile.Name)-2)
WScript.Echo "New name is " & fsoFile.Name & vbCRLF
End If
Next
Else
WScript.Echo "There is no folder " & WScript.Arguments(0)
End If
Else
WScript.Echo "Please provide a folder name as 1st Argument, e.g.:"
WScript.Echo WScript.ScriptName & " " & fso.GetSpecialFolder(2)
End If

ЯR

Ähnliche fragen