Здравствуйте, уважаемые подписчики!
С сегодняшнего выпуска, я решил возобновить раздел «Вопрос в рассылку», в котором будут публиковаться присланые мне по почте вопросы. Те из них, на которые я буду успевать отвечать, будут публиковаться с моими ответами. Надеюсь, что вы поддержите раздел и будете присылать не только вопросы, но и ответы. При публикации ответа будут также публиковаться имя ответишего и ссылка на личный сайт. Начнем.
Здравстсуйте Алексей!
Видел ваши статьи на сайте http://www.diwaxx.ru/web/java-create-file.php. Помогите мне пожалуйста написать скрипт на VBScript. Для вас это не составит труда.
Зада следующая:
Нужно проверить в папке C:\Folder наличие, либо отсутствие файлов. И в зависимости от результата произвести действие. Т.е. если папка пуста - нет действия. Если есть какие либо файлы - следует действе.
Проверить наличие конкретного файла я умею, но вот проверить наличие, либо отсутствие неопределенных файлов вообще, я не знаю как. Очень надеюсь на вашу помощь.
Ответ:
Решение проблемы действительно очень простое. У каждого каталога существет коллекция Files, в которой храняться все файлы каталога. В свою очередь у коллекции сществует свойство Count, которое возвращает количество элементов. Вот пример скрипта:
Dim fso, f, fc, f1
' Создаем объект FileSystemObject для управления файлами и каталогами
Set fso = CreateObject("Scripting.FileSystemObject")
' Получаем ссылку на каталог
Set f = fso.GetFolder("c:\Folder")
' Коллекция Files
Set fc = f.Files
' Изначально каталог c:\Folder пустой
' Если он пуст, то создается пустой файл 1.txt
' В противном случает файл 1.txt удаляется
If fc.Count = 0 Then
Set f1 = fso.CreateTextFile("c:\Folder\1.txt")
Else
fso.DeleteFile("c:\Folder\1.txt")
End If
<?
// Определяем текущее время.
list($msec,$sec)=explode(chr(32),microtime());
$HeadTime=$sec+$msec;
//На этом месте должен быть ваш PHP код.
// Можно сделать простой инклудинг:
// include("script.inc.php");
// Определяем ещё раз текущее время.
list($msec,$sec)=explode(chr(32),microtime());
//Выводим время затраченное на выполнение скрипта
// с 4 знаками после запятой (точки).
echo "Страница сгенерировалась за ".round(($sec+$msec)-$HeadTime,4)." сек.";
?>
С момента предыдущего выпуска раccылкина на сайт добавлены скрипты: Выделение всех элементов списка (работа с элементом checkbox) и URL картинки в текстовом поле.
Добавлена книга «Введение в Perl».