Скрипт VB(vbs)..Help me!
Формулировка задачи:
Здравствуйте!
Помогите пожалуйста написать скрипт (vb,vbs) при условиях: Есть общая папка(INOUT), в нее пользователи копируют разную инфу (файлопомойка), в корне этой папки лежит файл txt (можно сделать и папку), который гласит: что каждое воскресенье из этой папки(INUOT)будут уничтожатся все файлы,как предупреждение. Этот файл(папку) убивать будет нельзя.НУЖНО чтобы эта папка скриптом копировалась (каждое воскр.) на сервер, после копирования в папке INOUT должно быть пусто(данные уничтожаются) (за исключением 1 файла с предупреждением).При копировании если скрипт находит в месте назначения папку INOUT то скрипт создает новую папку INOUT_01 и сливает в нее все данных с папки INOUT(т.е. с файлопомойки). Цикл работы скрипта 3 недели, соотв. скрипт должен будет создать за 3 недели 3 папки: INOUT(заполнена на первой неделе),INOUT_01 (заполнена на второй неделе),INOUT_02 (заполнена на третей неделе). VB,VBS я знаю оч плохо, начальство попросило сделать до завтра, Если будут предложения с радостью приму их! :)
Помогите пожалуйста написать скрипт (vb,vbs) при условиях: Есть общая папка(INOUT), в нее пользователи копируют разную инфу (файлопомойка), в корне этой папки лежит файл txt (можно сделать и папку), который гласит: что каждое воскресенье из этой папки(INUOT)будут уничтожатся все файлы,как предупреждение. Этот файл(папку) убивать будет нельзя.НУЖНО чтобы эта папка скриптом копировалась (каждое воскр.) на сервер, после копирования в папке INOUT должно быть пусто(данные уничтожаются) (за исключением 1 файла с предупреждением).При копировании если скрипт находит в месте назначения папку INOUT то скрипт создает новую папку INOUT_01 и сливает в нее все данных с папки INOUT(т.е. с файлопомойки). Цикл работы скрипта 3 недели, соотв. скрипт должен будет создать за 3 недели 3 папки: INOUT(заполнена на первой неделе),INOUT_01 (заполнена на второй неделе),INOUT_02 (заполнена на третей неделе). VB,VBS я знаю оч плохо, начальство попросило сделать до завтра, Если будут предложения с радостью приму их! :)
Решение задачи: «Скрипт VB(vbs)..Help me!»
textual
Листинг программы
<font color="blue">dim</font> pathFrom, pathTo pathFrom = <font color="teal">"C:\INOUT"</font> pathTo = <font color="teal">"f:\"</font> <font color="blue">dim</font> dates(<font color="darkblue"><b>3</b></font>) <font color="blue">Set</font> fso=CreateObject(<font color="teal">"Scripting.FilesystemObject"</font>) x = <font color="darkblue"><b>1</b></font> <font color="blue">While</font> fso.FolderExists(pathTo & <font color="teal">"INOUT_"</font> & x) <font color="blue">Set</font> f = fso.GetFolder(pathTo & <font color="teal">"INOUT_"</font> & x) dates(x) = f.DateCreated x = x +<font color="darkblue"><b>1</b></font> <font color="blue">Wend</font> <font color="blue">If</font> x = <font color="darkblue"><b>4</b></font> <font color="blue">then</font> d = Now <font color="blue">For</font> y=<font color="darkblue"><b>1</b></font> <font color="blue">to</font> <font color="darkblue"><b>3</b></font> <font color="blue">If</font> dates(y)<d <font="" color="blue">then d = dates(y) x = y <font color="blue">end</font> <font color="blue">if</font> <font color="blue">next</font> fso.DeleteFolder pathTo & <font color="teal">"INOUT_"</font> & x <font color="blue">end</font> <font color="blue">if</font> fso.CreateFolder pathTo & <font color="teal">"INOUT_"</font> & x fso.CopyFolder pathFrom, pathTo & <font color="teal">"INOUT_"</font> & x <font color="blue">For</font> <font color="blue">Each</font> f <font color="blue">in</font> fso.GetFolder(pathFrom).SubFolders f.Delete <font color="blue">Next</font> <font color="blue">For</font> <font color="blue">Each</font> f <font color="blue">in</font> fso.GetFolder(pathFrom).Files <font color="blue">If</font> f.<font color="blue">Name</font><><font color="teal">"файл.txt"</font> <font color="blue">then</font> f.Delete <font color="blue">Next</font></d>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д