25 lines
555 B
Text
25 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!"
|