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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.909 из 5