Новости



Visual FoxPro 9 позволяет создавать ещё более производительные приложения баз данных.
Двадцатиление FoxPro! Microsoft принимает поздравления.
Visual FoxPro Toolkit for .NET - более 225 функций VFP 7.0, для языков .NET (подробнее)

Программа удаления файлов по маске.

Func Файл_Удалить
Para пМаска,пПапка
* По умолчанию удаляем временные файлы
Маска='*.TMP'
Папка=sys(2023)+'\'
If PARAMETER()>=1
Маска=UPPER(пМаска)
Endif
If PARAMETER()=2
Папка=UPPER(пПапка)
Endif

Фалов_всего=ADIR(Массив_фалов,Папка+Маска)
For Фал_номер=1 to Фалов_всего
Фал_текущий=Папка+Массив_фалов(Фал_номер,1)
If FILE(Фал_текущий)
Фал_текущий_номер = FOPEN(Фал_текущий,12)
Endif
If Фал_текущий_номер < 0
Else
=FCLOSE(Фал_текущий_номер) && Закрываем файл
Dele FILE (Фал_текущий)
Endif
Next
return



Новое на сайте

  • Обновлен портфель программиста

    Добавлены: Установка HTML Help (Создание справочной системы), Imagedit.zip - Графический редактор ( ico и bmp), Библиотека локализации HTML Help (Русский)

  • Новые примеры программ

    Установка библиотек, Игровая программа "Охота на лис", Установка библиотек "Охота на лис", plastic -"Платежки", Библиотеки (на FPD26), platan -"Платежки" (на Clipper 5.2)

  • Обновленна справка

    Подсказки, технология программирования и использование Visual FoxPro. Команды, функции, операторы, объекты, свойства, события и методы.