Witam!
Napisalem w pascalu poniższą procedurę:
procedure usunkatalog;
var
a,b,c:string;
begin
clrscr;
gotoxy(20,12);
textcolor(14);
write('Podaj nazwe katalogu do usuniecia:');
gotoxy(20,13);
textcolor(7);
writeln('katalog zostanie usuniety z bierzacego katalogu');
gotoxy(22,14);
textcolor(white);
myreadlnstr(a);
getdir(0,b);
c:=b+'/'+a;
{$I-}rmdir(c); {$I+}
gotoxy(20,16);
textcolor(green);
if ioresult = 0 then write('Katalog usunieto');
textcolor(red);
if ioresult <> 0 then write ('Nie usunieto katalogu');
gotoxy(28,24);
textcolor(15);
write('Press ENTER to continue');
readln(b);
end;
Nie wiem dlaczego, ale jest problem ze zwracaniem ioresult. Jeżeli katalog przeznaczony do usunięcia jest pusty, wówczas procedura wyświetla komunikat że katalog usunięto => ioresult = 0.
Schody zaczynają się gdy próbujemy usunąć katalog z zawartością. Wówczas wyskakuje tylko ‘Press Enter to continue’, żadnego komunikatu o błędzie, a folder naturalnie nie jest usunięty:(
Jakieś pomysły dlaczego??
PS.
Istnieje jakaś procedura która umożliwia usunięcie katalogu z zawartoscią? (chodzi mi o gotową, a jak nie ma to ostatecznie sam napisze;)