25 lines
566 B
Text
25 lines
566 B
Text
|
'Automatically rename files, removing entered prefix
|
||
|
|
'by DarkCat09
|
||
|
|
|
||
|
|
Option Explicit
|
||
|
|
|
||
|
|
Dim prefix, directory, result
|
||
|
|
Dim Fso, Dir, File
|
||
|
|
Set Fso = CreateObject("Scripting.FileSystemObject")
|
||
|
|
|
||
|
|
prefix = InputBox("Enter file prefix:", "Autorename")
|
||
|
|
|
||
|
|
If Wsh.Arguments.Count > 0 Then
|
||
|
|
directory = Wsh.Arguments(0)
|
||
|
|
Else
|
||
|
|
directory = Fso.GetParentFolderName(WScript.ScriptFullName)
|
||
|
|
End If
|
||
|
|
|
||
|
|
Set Dir = Fso.GetFolder(directory)
|
||
|
|
|
||
|
|
For Each File in Dir.Files
|
||
|
|
result = File.Path
|
||
|
|
Fso.MoveFile File.Path, Replace(result, prefix, "", 1, 1, 1)
|
||
|
|
Next
|
||
|
|
MsgBox "OK!"
|