'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!"