文件文件夹操作

2017-05-14 11:44:06来源:CSDN作者:hzken0137人点击

非空文件夹删除
uses ShellApi;
function 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;
调用
DelDirectory(‘E:/1’);DelDirectory(‘E:/1/’);

===================================================
文件删除
DeleteFile(‘E:/1.zip’);

===================================================
路径
ExtractFilePath() 从文件名中抽取路径名
显示:’D:/Program Files/Borland/Delphi7/Projects/
ExtractFileDir() 从文件名中抽取目录名
ExtractFileDrive() 从文件名中抽取驱动器名
ExtractFileName显示文件名及后缀
显示:Unit1.dcu
ExpandUNCFileName() 返回含有网络驱动器的文件全路径
ExtractRelativePath() 从文件名中抽取相对路径信息
ChangeFileExt(‘FileName’,”) ; //返回不含扩展名的文件名
s:=changefileext(‘f:/123.txt’,’.ini’);//变更后缀
showmessage(s);//f:/123.ini

DirectoryExists文件夹是否存在
CreateDirectory(PChar(FilePathTxt.Text),nil);创建文件夹
FileExists(ExtractFilePath(Application.ExeName)+’1.ini’) 文件是否存在

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台