Пакетный файл для переименования файлов в папке, если имя файла имеет (- *)

Question

Я делаю упражнение на командные файлы. Однако я все еще новичок в сценариях. Я хочу, чтобы он работал на старых Windows столько же, сколько на Windows 10, так что в основном, если код отформатирован в CMD. Я до сих пор не понимаю, что такое пакетные файлы и простые сценарии.

Это просто простой сценарий, который берет текущий каталог, в котором находится файл сценария, и запускает файлы. В некоторых файлах -1212.txt, например File-1.txt.

. Я хотел бы удалить -1 или любой другой номер после имени. Я знаю, что мне нужно зациклить каждый символ и найти (-), а затем удалить то, что после этого символа.

Это то, что я пытался

Set objFso = CreateObject(“Scripting.FileSystemObject”)

Set Folder = %~dp0

For Each File In Folder.Files

    sNewFile = File.Name


    sNewFile = rename "-*.*"

    if (*****) then

        File......

    end if

Next

Просто не знаю, как это получитьработает, не могли бы вы объяснить свой код

Answer 1

С VBScript примерно так должно работать:

Dim fso
Dim file
Dim folder
Dim sNewName
Dim iIndex

' Create File System Object
Set fso = CreateObject("Scripting.FileSystemObject")

' Get current folder
Set folder = fso.GetFolder(".\")

For Each file In folder.Files

    iIndex = InStr(1, file.Name, "-")
    If iIndex > 0 Then

        ' Remove characters
        sNewName = Left(file.Name, iIndex - 1) & Mid(file.Name, iIndex + 2)

        file.Name = sNewName

    End If

Next