Скрипт 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>