24 lines
555 B
Text
24 lines
555 B
Text
'Automatically rename files, adding entered prefix
|
|
'by DarkCat09
|
|
|
|
Option Explicit
|
|
|
|
Dim prefix, directory
|
|
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
|
|
Fso.MoveFile directory & "\" & File.Name, directory & "\" & prefix & File.Name
|
|
Next
|
|
|
|
MsgBox "OK!"
|