[megaloman]

Iska, Вы правы, почему-то ранее я об это спотыкался, пробовал и у меня не получалось.

vbs c переименованием

Код:

MyDir = "Z:\Soft_In"
Ext = "txt"

MyMask = "^.*\." + Ext + "$"

Set Reg = CreateObject("VBScript.RegExp")
Reg.IgnoreCase = True
Reg.Pattern = MyMask

With CreateObject("Scripting.FileSystemObject")
    Set Files = .GetFolder(MyDir).Files

    For Each File In Files
        Filename = File.Name
        If Reg.Test(Filename) Then
            File.Name = Filename + ".~~~tmp~~~"
        End If
    Next

    Reg.Pattern = "^.*\.~~~tmp~~~$"

    N = 0
    For Each File In Files
        Filename = File.Name
        If Reg.Test(Filename) Then
            N = N + 1
            File.Name = CStr(N) + "." + Ext
        End If
    Next
End With

MsgBox "Done"