menghapus file

Menghapus File

Untuk menghapus suatu file, file tersebut harus di-assign terlebih dahulu. Bentuk umum perintahnya :

Erase(nm_var);

Contoh :

Program hapus;

Uses crt;

Var f:file;

Begin

Clrscr;

Assign(f,paramstr(1));

Write( ‘File ‘,paramstr(1));

{$I-}

erase(f);

{$I+}

if IOResult <> 0 then writeln(‘Gagal mengapus’);

else writeln(‘Menghapus sukses …’);

end.

 Mengubah nama file

Untuk mengubah nama file, file tersebut harus di-assign terlebih dahulu. Bentuk umum perintahnya :

Rename(nm_var,nm_baru);

Contoh :

Program Ubah_nama;

Uses crt;

Var f:file;

Begin

Clrscr;

Assign(f,paramstr(1));

Write( ‘File ‘,paramstr(1));

{$I-}

rename(f,ParamStr(2));

{$I+}

if IOResult <> 0 then writeln(‘Gagal mengubah nama’);

else writeln(‘Mengubah nama menjadi ’, ParamStr(2));

end.