Windows Script Host. Примеры.
Удаление содержимое временного каталога Windows.
Option Explicit
Dim FSO
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
Dim TempFolder
Set TempFolder = FSO.GetSpecialFolder(2) ' 2 = TEMP
On Error Resume Next
Dim Files, File
Set Files = TempFolder.Files
For Each File In Files
File.Attributes = 0
File.Delete
Next
Set FSO = Nothing
Обработка файлов в директории удовлетворяющих требуемому расширению.
var fso, f, f1, fc, pathd;
var nnn, ext;
fso = new ActiveXObject("Scripting.FileSystemObject");
pathd="d:\\000\\1";
f = fso.GetFolder(pathd);
fc = new Enumerator(f.files);
for (; !fc.atEnd(); fc.moveNext())
{
f1=fc.item();
nnn=fso.GetFileName(f1);
ext =nnn.substr(nnn.lastIndexOf(".") + 1);
if (ext == "doc")
{
WScript.Echo(nnn);
}
}
Обработка файлов, последняя модификация которых была не больше определенного количества дней назад.
Часто подобные задачи возникают при необходимости скопировать ежедневные резервные копии в архив. При таком подходе необязательно знать имена файлов. Просматриваются файлы из выбранной директории (в программе - переменная pathd), извлекается для каждого файла атрибут - дата последней модификации (DateLastModified), сравнивается с текущей датой (при вычитании дат в JavaScript получается разность в миллисекундах. Для получения разности времени в днях ее необходимо разделить на количество миллисекунд в сутках - 1000*60*60*24=86400000). Если интервал удовлетворяет условию (в программе - переменная period), то файл обрабатывается (в примере выводится имя файла).
var fso, f, f1,f2, fc, pathd;
var razn, ddd;
var period=5;
var now = new Date;
fso = new ActiveXObject("Scripting.FileSystemObject");
pathd="d:\\000\\1";
f = fso.GetFolder(pathd);
fc = new Enumerator(f.files);
for (; !fc.atEnd(); fc.moveNext())
{
f1=fc.item();
f2=fso.GetFile(f1);
ddd=new Date(f2.DateLastModified);
razn=Math.floor((now-ddd)/86400000); //1000*60*60*24
if (razn <= period)
{
WScript.Echo(fso.GetFileName(f1));
}
}
Для вопросов, обсуждений, замечаний, предложений и т. п. можете использовать раздел форума этого сайта (требуетс¤ регистраци¤).
