求救:改变文件目录名称和删除文件目录以及目录中的所有文件的涵数是什么 改变文件目录名称和删除文件目录以及目录中的所有文件的涵数是什么 解决方案 » 免费领取超大流量手机卡,每月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] 遍历文件夹 请问grid里怎么操作dbf或是mdb,还有小弟是初学,有什么进步快的方法。 天啊为什么还是有错误啊坚持到底 FRAME 相关问题 ***高分求教*** 请问那位大虾知道那里有instalshield express custom edition for delphi下载 datatime 关于TQuery的问题? 释放问题! 关于treeview的问题? 我的 VISUAL DRIVER 6.0 在 WIN2000 下不能用了 关于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]