Конференции:  3D графика Delphi Игры Бизнес Потрепаться PHP&MySQL QuarkXPress Turbo Pascal WEB-дизайн 
<<<    Конференция "Turbo Pascal"   >>>
Нуждающийся [2003-10-10 22:39:44]
Удаление папок
Подскажите, пожалуйста, как написать программу в Turbo Pascal, чтобы она искала и удоляла файлы опредеённого типа (.bak)

Bat [2003-10-13 21:28:09]    [1]
Uses WinCrt, WinDos;

Var S : Array [0..fsPathName] Of Char;

Begin
FileSearch(S, 'TPW.EXE', GetEnvVar('PATH'));
If S[0] = #0 Then WriteLn('TPW.EXE не найден!')
             Else WriteLn('Найден как ', FileExpand(S, S));
End.
--------ищем


Uses WinDos, WinCrt;

Var F : File;
  Ch : Char;

Begin
{ Получаем имя файла из командной строки }
Assign(F, ParamStr(1));
{$I-} { Отключаем контроль ошибок ввода/вывода }
Reset(F);
{$I+} { Включаем контроль ошибок ввода/вывода }
If IOResult<>0 Then WriteLn('Не могу найти :', ParamStr(1))
 Else
Begin
 Close(F);
 Write('Удалять ', ParamStr(1), ' (y/n) ?');
 ReadLn(Ch);
 If UpCase(Ch)='Y' Then Erase(F);
End;
End.

---удаляем

neznayka [2004-07-12 19:31:51]    [2]
Удалено модератором

neznayka [2004-07-12 19:34:48]    [3]
Удалено модератором

neznayka [2004-07-12 19:36:58]    [4]
Удалено модератором

SomeOne [2006-05-23 16:07:05]    [5]
Удалено модератором

Zzzzzz [2007-09-06 13:18:51]    [6]
Во здесь мата было наверна )))))))))

ArS [2007-09-06 18:59:51]    [7]
А можэт, модератор просто жлоб и ему правильных атветофф жалко отдавать. гы


ПОДПИСАТЬСЯ НА ТЕМУ

E-mail
7+8?



приветя улыбаюсьхадаподмигиваюя тащусьмое почтениесчастливоцелуюбухаемужас
не понялплачуфупечальзлойстесняюсьсогласеннетгыкурю
суперязыкмузонпыворыдаю


Ваше имя: 
     Осталось: 

 

Допускается форматирование текста:
[•B]полужирный[B•] [•I]наклонный[I•] [•U]подчеркнутый[U•] [•‹]URL картинки[›•].
Для кода программ используйте [•¤] код программы [¤•]
Количество открывающих и закрывающих тэгов форматирования текста должно быть равным, иначе форматирование не осуществится.


Adelavida Link       Рейтинг@Mail.ru