Не получается создать папку

@YaMolekula · Регистрация: 03.02.2010

Author24 — интернет-сервис помощи студентам

Доброго Времени Суток! Мне в программе необходимо создавать временную папку для хранения файлов. Как это делается обычно, вписал MkDir, а компилятор не опознает. Не знаете, есть ли ещё какой способ создать папку? Или может я какой-то модуль забыл подключить?

@SuPeR XaKer · 09.05.2011, 00:41

модуль Dos подключили?

@YaMolekula · 09.05.2011, 03:13 **[ТС]**

В PascalABC его вроде нету.

Всё оказалось очень просто. Удаление папки происходит процедурой CreateDir, она находится в модуле utils, но сначала нужно найти все файлы в этой папке и удалить. В общем это всё выглядит следующим образом.

Pascal

program DirWork;
uses utils;
var
f:text;
 
function DelDir(s:string):boolean;  //удалятель непустых (и пустых) директорий
var sr:SearchRec;
begin
if FindFirstFile(s+'\*.*',sr) then  //сначала удаляем файлы
  begin
    DeleteFile(s+'\'+sr.Name);
    while FindNext(sr) do
      DeleteFile(s+'\'+sr.Name);
  end;
FindClose(sr);
DelDir:=RemoveDir(s); //потом папку
end;
 
Begin
 
CreateDir('TestDir');
assign(f,'TestDir\f1.0');
rewrite(f);
close(f);
 
if RemoveDir('TestDir') then showmessage('папка удалена функцией RemoveDir')
else showmessage('папка не удалена функцией RemoveDir, т.к. в папке находятся файлы (по крайне мере файл f1.0) или по другой причине. Удалите сначала все файлы.');
 
if DelDir('TestDir') then showmessage('папка удалена функцией DelDir')
else showmessage('папка не удалена');
End.

@SuPeR XaKer · 09.05.2011, 11:32

В PascalABC его вроде нету.

Не по теме:

раздел спутал.

@YaMolekula 14 / 14 / 2 Регистрация: 03.02.2010 Сообщений: 142
		1
	Не получается создать папку 09.05.2011, 00:27. Показов 2239. Ответов 3 Метки нет (Все метки) Доброго Времени Суток! Мне в программе необходимо создавать временную папку для хранения файлов. Как это делается обычно, вписал MkDir, а компилятор не опознает. Не знаете, есть ли ещё какой способ создать папку? Или может я какой-то модуль забыл подключить? 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	09.05.2011, 00:41	2
	модуль Dos подключили? 1

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	09.05.2011, 11:32	4
	В PascalABC его вроде нету. Не по теме: раздел спутал. 0

Не получается создать папку

Решение