1 Тема от NecroTYN (изменено: NecroTYN, 2011-07-05 10:53:16)

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

Тема: VBS:Автоматическое создание папок из полей таблицы c помощью VBS

Здравствуйте Господа программисты!!!

Очень нужна ваша помощь в следующем вопросе:

Есть программа работающая с базой данных Access, включающая в себя следующие таблицы: ... Заказы,продукты....

Нужно создать скрипт VBS чтобы при создании ЗАКАЗА автоматически создавалась группа папок в определенном месте диска (D:\Documents\Заказы\...), а имена этих папок создавались бы из определенных полей таблиц. Например:
после создания заказа должны появится папки по указанному пути с таким вот именем:
D:\Documents\Заказы\ул.Красная\Сергеев\
где ул.Красная это адрес клиента(Поле "Адресс" в таблице "Заказы", Сергеев это Фамилия клиента(Поле "Клиент"в таблице заказы).
В папке "Сергеев" в свою очередь создаются папки (Стойка компьютерная,Стол письменный,Шкаф купе), имена которых берутся из таблицы "продукты" (в которой мы собственно и составляем заказ), каждая из которых содержит в себе еще 4 папки с неизменными названиями(Замер,Модель,Раскрой,Эскизы,Документы)....

имя 1ой и 2ой папки-берется из таблицы tblOrders - Address

имя 3ей папки-берется из таблицы tblOrdersProducts - Product

"третьих" папок должно создаваться столько, сколько заказано продуктов, за исключением услуг(которые кстати тоже находятся в таблице tblOrdersProducts), в каждой из них создаются следующие папки:

Замер
Модель
Раскрой
Эскизы
Документы



С нетерпением жду ответа

2 Ответ от NecroTYN (изменено: NecroTYN, 2011-07-04 18:29:24)

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

Re: VBS:Автоматическое создание папок из полей таблицы c помощью VBS

на одном из форумов составили вот такой вот код,но чёт не работает:

Set FSO = CreateObject("Scripting.FileSystemObject")

strPath="C:\Documents"
If Not FSO.FolderExists(strPath) Then FSO.CreateFolder(strPath)
strPath=strPath & "\Заказы"
If Not FSO.FolderExists(strPath) Then FSO.CreateFolder(strPath)
strPath=strPath &"\"& WScript.Arguments(0)
If Not FSO.FolderExists(strPath) Then FSO.CreateFolder(strPath)
strPath=strPath &"\"& WScript.Arguments(1)
If Not FSO.FolderExists(strPath) Then FSO.CreateFolder(strPath)
strPath=strPath &"\"& WScript.Arguments(2)
If Not FSO.FolderExists(strPath) Then FSO.CreateFolder(strPath)

К сожалению Я не знаю языков программирования, и не могу ничего откомментировать

3 Ответ от JSmаn

  • JSmаn
  • Разработчик
  • Неактивен

Re: VBS:Автоматическое создание папок из полей таблицы c помощью VBS

Язык программирования в заголовке укажите, как это делают остальные.