Серый форум — VBS:Переименовать папку

Re: VBS:Переименовать папку

2015-09-10T13:17:30Z

Спасибо большое!!!! Это то что нужно было. Ура жизнь налаживается.....

Re: VBS:Переименовать папку

2015-09-10T13:04:39Z

Path  = "<путь к каталогу>"
Title = " Переименование каталога"
With CreateObject("Scripting.FileSystemObject")
  Set Items = CreateObject("Shell.Application").NameSpace(.GetParentFolderName(Path)).Items
  Name = .GetFileName(Path) : Items.Filter 9376, Name
End With
If Items.Count Then
  Name = Trim(InputBox(String(5, vbCr) & "Введите новое имя каталога:", Title, Name))
  If Name <> "" Then Items.Item(0).Name = Name
Else MsgBox "Каталога " & Path & " не существует!", 48, Title
End If

VBS:Переименовать папку

2015-09-10T12:13:25Z

Помогите пожалуйста. VBS вообще не знаю.
Нужно на шаре переименовать папку \\имясервера\scan\IMAGE с запросом имени у пользователя.
Это нужно для сканера штрихкода. Папка IMAGE появляется каждый раз после пакетного сканирования.
Заранее благодарен.