uses FileCtrl;
procedure TForm1.Button1Click(Sender: TObject);
begin
if DirectoryExists('c:\test') then
ShowMessage('Path Ditemukan!')
else
ShowMessage('Path Tidak Ditemukan!');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if DirectoryExists('c:\test') then
ShowMessage('Path Ditemukan!')
else
ShowMessage('Path Tidak Ditemukan!');
end;
No comments:
Post a Comment