[Iska]

megaloman, а, ну да — можно сразу туда.

Кстати, в vbs пришлось делать именно Move, переименовать файл я не умею. »

Например:

Код:

objFile.Name = strNewName

В самой библиотеке ошибка в описании, что данное свойство только для чтения:

Property Name As String Get name of file

[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"

[greg zakharov]

Код:

$g = Get-ChildItem X:\path\*.txt | Group-Object {!($_.Basename -as [UInt32])}
[Linq.Enumerable]::Zip([String[]]($g[1].Group.FullName), [UInt32[]](
   (1..$g.Group.Length).Where{$g[0].Group.Basename -notcontains $_}
), [Func[String, UInt32, ScriptBlock]]{
   Rename-Item $($args[0])" "$($args[1]).txt"
})