在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
procedure TForm1.Button1Click(Sender: TObject); var Pach:string; begin Pach:='E:\123\223'; //定义目录地址 if not DirectoryExists(pach) then //查找文件夹是否存在 begin //建立文件夹(ForceDirectories可建立多级目录,创建单级目录用:CreateDirectory) ForceDirectories(Pach); end else begin showmessage('目录已经存在'); end; end;
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论