Tuesday, August 03, 1999, 8:20:02 PM, bbs wrote:
b> Pake DeleteFile, FindFirst, FindNext
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Udah, tapi koq selalu tersisa satu file yang posisinya paling atas
yach ? Skripnya sebagai berikut :
FindFirst(Dir, faArchive, SearchResult);
ArrayFile[a] := ExtractFileName(SearchResult.Name);
a := a + 1;
while (FindNext(SearchResult) = 0) do begin
ArrayFile[a] := SearchResult.Name;
a := a + 1;
FindNext(SearchResult);
end;
FindClose(SearchResult);
for b := 1 to a do begin
TempFile := ExtractFileName(ArrayFile[b]);
DeleteFile(TempFile);
end;
RmDir(TempDir);
Sorry.. masih kacangan tuh programmnya, tambal sulam...
b> ...WinExec/ShellExecute adanya di win32.hlp
Koq gak ada yach ? Apa bukan package bawaan ?
CyberMatrix
milis ini didukung oleh :
>> http://www.indolinux.com - dunia linux indonesia
-------------------------------------------------------------------
untuk berhenti kirim email ke [EMAIL PROTECTED]
untuk melihat peraturan kirim email ke [EMAIL PROTECTED]
arsip berada di http://www.mail-archive.com/[email protected]
