delphi 将文件夹中所有.JPG文件的文件名,保存在任意新建的.TXT文本文件中
答案:2 悬赏:10
解决时间 2021-02-15 19:19
- 提问者网友:绿海猖狂
- 2021-02-15 12:03
delphi 将文件夹中所有.JPG文件的文件名,保存在任意新建的.TXT文本文件中
最佳答案
- 二级知识专家网友:闲懒诗人
- 2021-02-15 12:15
系统里所有的.jpg文件么?
我也才学D 给你个思路 如果是当前文件夹下 参考这个 获取所有文件名 之后判断pos如果后三位为jpg 那么写入txt.
具体 下班到家写一下给你
你参考这个,这个是遍历某目录及其所有子目录、文件,并删除的函数。有你要的东西
procedure Fun_DeleteDir(sDirectory:String);stdcall;//删除目录和目录下得所有文件和文件夹
var
sr:TSearchRec;
sPath,sFile: String;
begin
if Copy(sDirectory,Length(sDirectory),1) <> '\ ' then
sPath := sDirectory + '\ '
else
sPath := sDirectory;
if SysUtils.FindFirst(sPath+ '*.* ',faAnyFile, sr) = 0 then
begin
repeat
sFile:=Trim(sr.Name);
if sFile= '. ' then Continue;
if sFile= '.. ' then Continue;
sFile:=sPath+sr.Name;
if (sr.Attr and faDirectory) <> 0 then
Fun_DeleteDir(sFile)
else
if (sr.Attr and faAnyFile) = sr.Attr then
begin
try
DeleteFile(PAnsiChar(sFile)); //删除文件
except
;
end;
end;
until SysUtils.FindNext(sr) <> 0;
SysUtils.FindClose(sr);
end;
try
RemoveDir(sPath);
except
;
end;
end;
我也才学D 给你个思路 如果是当前文件夹下 参考这个 获取所有文件名 之后判断pos如果后三位为jpg 那么写入txt.
具体 下班到家写一下给你
你参考这个,这个是遍历某目录及其所有子目录、文件,并删除的函数。有你要的东西
procedure Fun_DeleteDir(sDirectory:String);stdcall;//删除目录和目录下得所有文件和文件夹
var
sr:TSearchRec;
sPath,sFile: String;
begin
if Copy(sDirectory,Length(sDirectory),1) <> '\ ' then
sPath := sDirectory + '\ '
else
sPath := sDirectory;
if SysUtils.FindFirst(sPath+ '*.* ',faAnyFile, sr) = 0 then
begin
repeat
sFile:=Trim(sr.Name);
if sFile= '. ' then Continue;
if sFile= '.. ' then Continue;
sFile:=sPath+sr.Name;
if (sr.Attr and faDirectory) <> 0 then
Fun_DeleteDir(sFile)
else
if (sr.Attr and faAnyFile) = sr.Attr then
begin
try
DeleteFile(PAnsiChar(sFile)); //删除文件
except
;
end;
end;
until SysUtils.FindNext(sr) <> 0;
SysUtils.FindClose(sr);
end;
try
RemoveDir(sPath);
except
;
end;
end;
全部回答
- 1楼网友:两不相欠
- 2021-02-15 12:25
期待看到有用的回答!
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯
• 手机登qq时,显示手机磁盘不足,清理后重新登 |
• 刺客的套装怎么选啊? |