Алекс Куха
Высший разум
(476946)
6 лет назад
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = FSO.GetFolder(".")
Set colFiles = objFolder.Files
For Each objFile in colFiles
strOldText = objFile.Name
strNewText = Replace(strOldText, "%", "")
if len(strOldText) > len (strNewText) Then
WScript.Echo strNewText
Fso.MoveFile strOldText, strNewText
end if
Next
Требуется удалить из названия символ % (переименовать так чтобы в дальнейшем в названии не было того символа).
По-одному разбирать слишком долго. Может подскажете краткий путь....