procedure TF_CekDirektori.Button1Click(Sender: TObject);
begin
if DirectoryExists('c:coba')=true then
showmessage('Direktory c:\coba exist') else
showmessage('Direktory c:\coba not exist');
end;
begin
if DirectoryExists('c:coba')=true then
showmessage('Direktory c:\coba exist') else
showmessage('Direktory c:\coba not exist');
end;
No comments:
Post a Comment