API_MoveFileExA ——文件改名例子

694336034

  

子程序名	返回值类型	公开	备 注
MoveFileExA_文件改名	逻辑型		覆盖文件、延迟改名
参数名	类 型	参考	可空	数组	备 注
源文件路径	文本型				要改名的文件完整路径（如C:\download\test.zip.tmp）
目标文件路径	文本型				改名后的完整路径（如C:\download\test.zip）
是否覆盖目标文件	逻辑型				默认为假（不覆盖已存在的同名文件）自动添加序号

变量名	类 型	静态	数组	备 注
标志组合	整数型
是否成功	逻辑型
错误码	整数型

' MoveFileExA：扩展文件移动/改名函数
' GetLastError：排查改名失败原因（必须配套使用）
' 预处理：空路径直接返回失败
源文件路径 ＝ 删首尾空 (源文件路径)
目标文件路径 ＝ 删首尾空 (目标文件路径)
如果真 (源文件路径 ＝ “” 或 目标文件路径 ＝ “”)
输出调试文本 (“改名失败：源路径/目标路径为空”)
返回 (假)

' 组合操作标志（核心！）
标志组合 ＝ #MOVEFILE_WRITE_THROUGH  ' 立即执行，不缓存
判断 (是否覆盖目标文件)
标志组合 ＝ 位或 (标志组合, #MOVEFILE_REPLACE_EXISTING )  ' 启用覆盖
' 目标文件路径 ＝ 自动重命名 (目标文件路径)
标志组合 ＝ 位或 (标志组合, #MOVEFILE_COPY_ALLOWED )  ' 允许跨磁盘
' 执行改名
是否成功 ＝ MoveFileExA (源文件路径, 目标文件路径, 标志组合)
' 错误排查（关键！）
如果真 (是否成功 ＝ 假)
错误码 ＝ GetLastError ()
输出调试文本 (“改名失败：” ＋ 源文件路径 ＋ “→” ＋ 目标文件路径)
输出调试文本 (“错误码：” ＋ 到文本 (错误码))
' 特殊处理：文件被占用时，尝试延迟到重启后改名（可选）
如果真 (错误码 ＝ 32)
MoveFileExA (源文件路径, 目标文件路径, #MOVEFILE_DELAY_UNTIL_REBOOT )
输出调试文本 (“文件被占用，已设置重启后自动改名”)
返回 (假)
返回 (真)

.版本 2<br /> <br /> .子程序 MoveFileExA_文件改名, 逻辑型, 公开, 覆盖文件、延迟改名<br /> .参数 源文件路径, 文本型, , 要改名的文件完整路径（如C:\download\test.zip.tmp）<br /> .参数 目标文件路径, 文本型, , 改名后的完整路径（如C:\download\test.zip）<br /> .参数 是否覆盖目标文件, 逻辑型, 可空, 默认为假（不覆盖已存在的同名文件）自动添加序号<br /> .局部变量 标志组合, 整数型<br /> .局部变量 是否成功, 逻辑型<br /> .局部变量 错误码, 整数型<br /> <br /> <br /> <br /> ' MoveFileExA：扩展文件移动/改名函数<br /> ' GetLastError：排查改名失败原因（必须配套使用）<br /> ' 预处理：空路径直接返回失败<br /> 源文件路径 ＝ 删首尾空 (源文件路径)<br /> 目标文件路径 ＝ 删首尾空 (目标文件路径)<br /> .如果真 (源文件路径 ＝ “” 或 目标文件路径 ＝ “”)<br />     输出调试文本 (“改名失败：源路径/目标路径为空”)<br />     返回 (假)<br /> .如果真结束<br /> <br /> ' 组合操作标志（核心！）<br /> 标志组合 ＝ #MOVEFILE_WRITE_THROUGH  ' 立即执行，不缓存<br /> .判断开始 (是否覆盖目标文件)<br />     标志组合 ＝ 位或 (标志组合, #MOVEFILE_REPLACE_EXISTING)  ' 启用覆盖<br /> .默认<br />     ' 目标文件路径 ＝ 自动重命名 (目标文件路径)<br /> .判断结束<br /> 标志组合 ＝ 位或 (标志组合, #MOVEFILE_COPY_ALLOWED)  ' 允许跨磁盘<br /> ' 执行改名<br /> 是否成功 ＝ MoveFileExA (源文件路径, 目标文件路径, 标志组合)<br /> ' 错误排查（关键！）<br /> .如果真 (是否成功 ＝ 假)<br />     错误码 ＝ GetLastError ()<br />     输出调试文本 (“改名失败：” ＋ 源文件路径 ＋ “→” ＋ 目标文件路径)<br />     输出调试文本 (“错误码：” ＋ 到文本 (错误码))<br />     ' 特殊处理：文件被占用时，尝试延迟到重启后改名（可选）<br />     .如果真 (错误码 ＝ 32)<br />         MoveFileExA (源文件路径, 目标文件路径, #MOVEFILE_DELAY_UNTIL_REBOOT)<br />         输出调试文本 (“文件被占用，已设置重启后自动改名”)<br />     .如果真结束<br />     返回 (假)<br /> .如果真结束<br /> 返回 (真)

MoveFileExA_文件改名.e (4.96 KB, 下载次数: 24)

2026-2-10 19:43 上传

点击文件名下载附件

momoko001

支持开源~！感谢分享

futiem

#在这里快速回复#MoveFileExA ——文件改名例子

guangye1

真详细啊.厉害

卡卡1111

支持开源~！感谢分享

hehz977

感谢大神分享~！

胖子葛格

感谢大神分享~！

year1970

感谢分享

cf2010

感谢楼主分享

亿万

感谢分享