Page 18 - 2578

У роботі № 3 необхідно:
1) Записати інформацію про всі файли (каталога) в
таблицю Ms Word або Excel, що складається з 4 колонок, –
порядковий номер, ім'я файлу, розширення (дата, розмір і
тому подібне – залежно від завдання в 2-й роботі), виконану
дію. Після заповнення таблиці повинне бути проведена
сортування по 3-й колонці. У наступному прикладі в таблицю
Ms Word заносяться всі підкаталоги поточного каталога, потім
проводиться сортування за їх розміром:
var WA, // екземпляр об'єкту Application
WD; // екземпляр об'єкту Document
var n, WshShell, F, Fold, fname, fsize, i1,Cur, put;
i1= 0; // к-ть підкаталогів
// створюємо об'єкт WshShell
WshShell = WScript.CreateObject("WScript.Shell");
// створюємо об'єкт FileSystemObject
FSO = WScript.CreateObject("Scripting.FileSystemObject");
F = FSO.GetFolder(WshShell.CurrentDirectory);
Fold = new Enumerator(F.SubFolders);
n= F.SubFolders.Count;
WScript.Echo("Кількість каталогів "+n);
fname= new Array(n);
fsize= new Array(n);
put= F.Path;
for (;!Fold.atEnd();Fold.moveNext()) {
// витягуємо поточний елементу колекції
Cur=Fold.item();
fname[i1]=Cur.Name;
fsize[i1]= parseInt (Cur.Size/1024);
i1++ }
var
wdCell=12,wdAlignParagraphLeft=0,wdAlignParagraphCenter=1
wdWindowStateMaximize=1;
// створюємо об'єкт Application
WA=WScript.CreateObject("Word.Application");

17