1 Тема от Piratos (изменено: Piratos, 2015-09-10 16:40:11)

  • Piratos
  • Участник
  • Неактивен

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

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

2 Ответ от Flasher (изменено: Flasher, 2015-09-10 17:35:23)

  • Flasher
  • Заблокирован
  • Неактивен

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

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
+ Piratos

3 Ответ от Piratos

  • Piratos
  • Участник
  • Неактивен

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

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