VBScript Script Files

rename.vbs

And in particular a rename that involves the euro symbol (€).

If you do a rename in a .bat file, the euro symbol is fucked up.

If you type the euro symbol in a .vbs file to output it in a file name, it will also fail.

You can do it this way:

Dim sName
Dim fso
Dim fol

Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set fol = fso.GetFolder(".")

Dim val, f_val
val = 28.60
f_val = FormatCurrency(val, 2)

For Each fil In fol.Files
   ' check if the file name contains euro
   If InStr(1, fil.Name, "euro") <> 0 Then
      ' rename
      sName = Replace(fil.Name, "euro", f_val)
      ' rename the file
      fil.Name = sName
   End If
Next

Sources:

• rename script: VBScript to Replace Underscores in Filename with Spaces for All Files in a Folder (coderstalk.blogspot.com)
• currency variables: Microsoft Word - VBScript Reference Manual.doc (omrondoc.ru)
• concatenate strings and variables: Concatenation Operators in VBScript - Tutorialspoint