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

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

null@example.com (Piratos) — Thu, 10 Sep 2015 13:17:30 +0000

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

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

null@example.com (Flasher) — Thu, 10 Sep 2015 13:04:39 +0000

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:Переименовать папку

null@example.com (Piratos) — Thu, 10 Sep 2015 12:13:25 +0000

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