aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Löscht einen leeren Ordner.

Deklaration

procedure Rmdir(nameordner:string);

Beispiel

 uses crt;

begin
 {$I-}
 mkdir('C:\paswiki');
 {$I+}
 if ioresult <>0 then
 begin
 writeln('Fehler beim Erstelln !');
 writeln;
 writeln('Entweder existiert der Ordner bereits oder');
 writeln('Sie haben keine Dos-Schreibweise verwendet !');
 readkey;
 halt;
 end
 else
 writeln('leerer Dateiordner -paswiki- erstellt');
 writeln;
 writeln('Wollen Sie den Ordener paswiki wieder loeschen ? <j> oder <n>');
 if readkey='j' then
  begin
   rmdir('C:\paswiki');
   writeln('-paswiki- geloescht');
  end
 else writeln('-paswiki bleibt bestehen !');
 readln;
end. 

---