求救:改变文件目录名称和删除文件目录以及目录中的所有文件的涵数是什么 改变文件目录名称和删除文件目录以及目录中的所有文件的涵数是什么 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 删除目录注意:uses ShellAPIfunction TForm1.DelDirectory(const Source:string): boolean;var fo: TSHFILEOPSTRUCT;begin FillChar(fo, SizeOf(fo), 0); with fo do begin Wnd := 0; wFunc := FO_DELETE; pFrom := PChar(source+#0); pTo := #0#0; fFlags := FOF_NOCONFIRMATION+FOF_SILENT; end;Result := (SHFileOperation(fo) = 0);end; 改名RenameFile('c:/test', 'c:/test1'); 删除目录bool __fastcall RemoveDir(const AnsiString Dir); 在计算机磁盘中删除指定的文件,如果操作成功,则函数返回真,函数原型如下:bool __fastcall DeleteFile(const AnsiString FileName); DeleteFile一次可以刪除一個文件RemoveDir只可以刪除一個空目錄實在找不到還有其它函數了 请教你,我想程序控制新建,删除文件目录,怎么弄啊,我没一点思想,谢谢你,我很需要你的帮忙,谢谢各位老兄!我的E_MAIL:[email protected] 如何解决页面显示的分辨率问题 大家帮帮忙,我们公司要招人,如果有合适的大家帮忙介绍一下(北京) frame能动态更新吗? 关于DELPHI开发的程序内存暴长的问题 如何屏蔽ie插件弹出? 快郁闷死我了,dbchart折线的问题,解决立刻给分!!!!!!!!!!!!!!!!!!!!!!!!! 如何使每个Form在taskbar 上都显示出来? ===关于OE的简单问题=== 有没有谁碰到过这种怪问题? 高手LOOK!关于postmessage的问题? 关于DBlookupcombobox控件的问题? 小数点问题!
注意:uses ShellAPI
function TForm1.DelDirectory(const Source:string): boolean;
var
fo: TSHFILEOPSTRUCT;
begin
FillChar(fo, SizeOf(fo), 0); with fo do
begin
Wnd := 0;
wFunc := FO_DELETE;
pFrom := PChar(source+#0);
pTo := #0#0;
fFlags := FOF_NOCONFIRMATION+FOF_SILENT;
end;Result := (SHFileOperation(fo) = 0);
end;
RenameFile('c:/test', 'c:/test1');
bool __fastcall RemoveDir(const AnsiString Dir); 在计算机磁盘中删除指定的文件,如果操作成功,则函数返回真,函数原型如下:
bool __fastcall DeleteFile(const AnsiString FileName);
RemoveDir只可以刪除一個空目錄
實在找不到還有其它函數了
谢谢你,我很需要你的帮忙,谢谢各位老兄!
我的E_MAIL:[email protected]