Delphi 重命名文件夹
Posted 机器视觉和机器学习
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了Delphi 重命名文件夹相关的知识，希望对你有一定的参考价值。
//SourceDirectort, DestinationDirectort 绝对路径
function ReNameDirectort(SourceDirectort, DestinationDirectort: string): Boolean;
var
pDirOperate: TSHFileOpStruct;
begin
Result := False;
if not DirectoryExists(SourceDirectort) then Exit;
FillChar(pDirOperate, SizeOf(pDirOperate), 0);
pDirOperate.Wnd := 0;
pDirOperate.pFrom :=PChar(SourceDirectort + #0);
pDirOperate.pTo := PChar(DestinationDirectort + #0);
// FO_RENAME：重命名；FO_DELETE：删除文件夹（空文件夹和非空文件夹都可以）
// FO_COPY：复制；FO_MOVE：剪切
pDirOperate.wFunc := FO_RENAME;
pDirOperate.fFlags := FOF_RENAMEONCOLLISION;
Result := SHFileOperation(pDirOperate) = 0;
end;
用shell命令对文件重命名
参考技术A shell脚本实现文件改名小操作, 在此做一记录.#!/bin/bash#将数据文件.SAC名改为'<sta>.[N/E/Z].SAC'#例如2014.143.20.49.21.0000.YN.BAS.00.BHE.M.SAC改为BAS.E.SACcd ../Datafor FILE in ./* do cd ./$FILE ls#先ls,显示给文件下的所有文件名,对这些文件名使用awk命令,print出相应的mv *** *** 交由bash处理,给文件重命名.ls *.SAC | awk -F"." 'print "mv "$0" "$8"."$10"."$12' | bash rename "s/BH//" * #将BH替换为"",即删除BH# rename 's/^/filt./' *.SAC #增加前缀"filt."# rename 's/filt.//' * #删除前缀"filt." cd .. done
以上是关于Delphi 重命名文件夹的主要内容，如果未能解决你的问题，请参考以下文章