请问目标复制的时候怎么加进度条

雨落无声

试试这个API！加上下面这个标志常量可以有进度对话框
https://learn.microsoft.com/zh-c ... pi-shfileoperationa

FOF_SIMPLEPROGRESS
显示进度对话框，但不会在操作时显示单个文件名。

2224848

  

' 声明 CopyFileEx 及回调相关API

DLL命令名	返回值类型	公开	备 注
CopyFileExA	逻辑型
DLL库文件名:
kernel32.dll
在DLL库中对应命令名:
公开
参数名	类 型	传址	数组	备 注
lpExistingFileName	文本型			源文件路径
lpNewFileName	文本型			目标文件路径
lpProgressRoutine	子程序指针			进度回调函数
lpData	整数型			自定义数据（传递总大小和进度条句柄）
pbCancel	逻辑型			是否取消复制
dwCopyFlags	整数型			复制标志（0=正常复制）

' 回调函数原型（必须是全局函数）

子程序名	返回值类型	公开	备 注
复制进度回调	整数型
参数名	类 型	参考	可空	数组	备 注
TotalFileSize	整数型				文件总大小
TotalBytesTransferred	整数型				已复制字节数
StreamSize	整数型				流大小（忽略）
StreamBytesTransferred	整数型				已复制流字节数（忽略）
dwStreamNumber	整数型				流编号（忽略）
dwCallbackReason	整数型				回调原因（忽略）
hSourceFile	整数型				源文件句柄（忽略）
hDestinationFile	整数型				目标文件句柄（忽略）
lpData	整数型				自定义数据（进度条句柄）

.局部变量 进度条句柄, 整数型
.局部变量 进度百分比, 整数型

' 从自定义数据中获取进度条句柄
进度条句柄 = lpData

' 计算进度百分比（避免除零错误）
如果 (TotalFileSize > 0)
进度百分比 = 取整 ( (TotalBytesTransferred ／ TotalFileSize) × 100)
' 更新进度条（需线程同步，避免UI卡顿）
线程_同步 (进度条句柄, &更新进度条, 进度百分比, )

返回 (0)  ' 0=继续复制，1=取消复制
' 进度条更新函数（线程同步用）

子程序名	返回值类型	公开	备 注
更新进度条
参数名	类 型	参考	可空	数组	备 注
进度条句柄	整数型
进度值	整数型

进度条1.位置 = 进度值  ' 假设进度条控件名为“进度条1”

i支持库列表	支持库注释
精易, eAPI	(未知支持库)

.版本 2<br /> .支持库 精易, eAPI<br /> <br /> ' 声明 CopyFileEx 及回调相关API<br /> .DLL命令 CopyFileExA, 逻辑型, "kernel32.dll", 公开, 带进度回调的文件复制<br />     .参数 lpExistingFileName, 文本型, , 源文件路径<br />     .参数 lpNewFileName, 文本型, , 目标文件路径<br />     .参数 lpProgressRoutine, 子程序指针, , 进度回调函数<br />     .参数 lpData, 整数型, , 自定义数据（传递总大小和进度条句柄）<br />     .参数 pbCancel, 逻辑型, , 是否取消复制<br />     .参数 dwCopyFlags, 整数型, , 复制标志（0=正常复制）<br /> <br /> ' 回调函数原型（必须是全局函数）<br /> .子程序 复制进度回调, 整数型<br /> .参数 TotalFileSize, 整数型, , 文件总大小<br /> .参数 TotalBytesTransferred, 整数型, , 已复制字节数<br /> .参数 StreamSize, 整数型, , 流大小（忽略）<br /> .参数 StreamBytesTransferred, 整数型, , 已复制流字节数（忽略）<br /> .参数 dwStreamNumber, 整数型, , 流编号（忽略）<br /> .参数 dwCallbackReason, 整数型, , 回调原因（忽略）<br /> .参数 hSourceFile, 整数型, , 源文件句柄（忽略）<br /> .参数 hDestinationFile, 整数型, , 目标文件句柄（忽略）<br /> .参数 lpData, 整数型, , 自定义数据（进度条句柄）<br />     .局部变量 进度条句柄, 整数型<br />     .局部变量 进度百分比, 整数型<br />     <br />     ' 从自定义数据中获取进度条句柄<br />     进度条句柄 = lpData<br />     <br />     ' 计算进度百分比（避免除零错误）<br />     .如果 (TotalFileSize > 0)<br />         进度百分比 = 取整 ((TotalBytesTransferred ／ TotalFileSize) × 100)<br />         ' 更新进度条（需线程同步，避免UI卡顿）<br />         线程_同步 (进度条句柄, &更新进度条, 进度百分比, )<br />     .如果结束<br />     <br />     返回 (0)  ' 0=继续复制，1=取消复制<br /> <br /> ' 进度条更新函数（线程同步用）<br /> .子程序 更新进度条<br /> .参数 进度条句柄, 整数型<br /> .参数 进度值, 整数型<br />     进度条1.位置 = 进度值  ' 假设进度条控件名为“进度条1”

  

子程序名	返回值类型	公开	备 注
计算总大小	整数型		返回总字节数
参数名	类 型	参考	可空	数组	备 注
路径	文本型

.局部变量 总大小, 整数型
.局部变量 文件列表, 文本型, , "文件列表"
.局部变量 i, 整数型

如果 (文件_是否存在 (路径))
如果 (文件_是否为目录 (路径))
' 递归计算文件夹大小
文件列表 = 目录_枚举文件 (路径, , , 真)  ' 枚举所有子文件
计次循环首 (取数组成员数 (文件列表), i)
总大小 = 总大小 + 文件_取大小 (文件列表 [i])
计次循环尾 ()
' 单个文件大小
总大小 = 文件_取大小 (路径)
总大小 = 0

返回 (总大小)

.子程序 计算总大小, 整数型, , 返回总字节数<br /> .参数 路径, 文本型<br />     .局部变量 总大小, 整数型<br />     .局部变量 文件列表, 文本型, , "文件列表"<br />     .局部变量 i, 整数型<br />     <br />     .如果 (文件_是否存在 (路径))<br />         .如果 (文件_是否为目录 (路径))<br />             ' 递归计算文件夹大小<br />             文件列表 = 目录_枚举文件 (路径, , , 真)  ' 枚举所有子文件<br />             .计次循环首 (取数组成员数 (文件列表), i)<br />                 总大小 = 总大小 + 文件_取大小 (文件列表 <i>)<br />             .计次循环尾 ()<br />         .否则<br />             ' 单个文件大小<br />             总大小 = 文件_取大小 (路径)<br />         .如果结束<br />     .否则<br />         总大小 = 0<br />     .如果结束<br />     <br />     返回 (总大小)

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
总大小	整数型  ' 复制的总字节数
已复制大小	整数型  ' 累计已复制字节数

子程序名	返回值类型	公开	备 注
_按钮复制_被单击

变量名	类 型	静态	数组	备 注
源路径	文本型
目标路径	文本型
复制成功	逻辑型

' 设置源路径和目标路径（共享文件夹路径如 "\\服务器\共享目录\文件.txt"）
源路径 = 编辑框1.内容  ' 例如："D:\测试文件夹"
目标路径 = 编辑框2.内容  ' 例如："\\192.168.1.100\共享\测试文件夹"

' 1. 计算总大小（进度条基准）
总大小 = 计算总大小 (源路径)
如果 (总大小 = 0)
信息框 ("源路径不存在或为空！", 0, )
返回 ()
进度条1.位置 = 0
已复制大小 = 0

' 2. 复制文件/文件夹（区分文件和目录）
如果 (文件_是否为目录 (源路径))
' 复制文件夹（递归复制每个文件）
目录_创建 (目标路径)  ' 先创建目标目录
复制文件夹带进度 (源路径, 目标路径)
' 复制单个文件
复制成功 = CopyFileExA (源路径, 目标路径, &复制进度回调, 进度条1.取窗口句柄 (), 假, 0)
如果 (复制成功 = 假)
信息框 ("文件复制失败！", 0, )
进度条1.位置 = 100
信息框 ("复制完成！", 0, )

子程序名	返回值类型	公开	备 注
复制文件夹带进度	逻辑型
参数名	类 型	参考	可空	数组	备 注
源目录	文本型
目标目录	文本型

变量名	类 型	静态	数组	备 注
文件列表	文本型		文件列表
子目录列表	文本型		子目录列表
i	整数型
源文件	文本型
目标文件	文本型
复制成功	逻辑型

' 获取源目录下的文件和子目录
文件列表 = 目录_枚举文件 (源目录, , , 假)  ' 非递归枚举文件
子目录列表 = 目录_枚举目录 (源目录, , , 假)  ' 非递归枚举子目录

' 复制当前目录下的文件
计次循环首 (取数组成员数 (文件列表), i)
源文件 = 文件列表 [i]
目标文件 = 目标目录 ＋ “\” ＋ 取文本右边 (源文件, 取文本长度 (源文件) － 取文本长度 (源目录) － 1)

' 调用带进度的文件复制
复制成功 = CopyFileExA (源文件, 目标文件, &复制进度回调, 进度条1.取窗口句柄 (), 假, 0)
如果 (复制成功 = 假)
返回 (假)

计次循环尾 ()

' 递归复制子目录
计次循环首 (取数组成员数 (子目录列表), i)
复制文件夹带进度 (子目录列表 [i], 目标目录 ＋ “\” ＋ 取文本右边 (子目录列表 [i], 取文本长度 (子目录列表 [i]) － 取文本长度 (源目录) － 1))
计次循环尾 ()

返回 (真)

.版本 2<br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 总大小, 整数型  ' 复制的总字节数<br /> .程序集变量 已复制大小, 整数型  ' 累计已复制字节数<br /> <br /> .子程序 _按钮复制_被单击<br /> .局部变量 源路径, 文本型<br /> .局部变量 目标路径, 文本型<br /> .局部变量 复制成功, 逻辑型<br /> <br />     ' 设置源路径和目标路径（共享文件夹路径如 "\\服务器\共享目录\文件.txt"）<br />     源路径 = 编辑框1.内容  ' 例如："D:\测试文件夹"<br />     目标路径 = 编辑框2.内容  ' 例如："\\192.168.1.100\共享\测试文件夹"<br />     <br />     ' 1. 计算总大小（进度条基准）<br />     总大小 = 计算总大小 (源路径)<br />     .如果 (总大小 = 0)<br />         信息框 ("源路径不存在或为空！", 0, )<br />         返回 ()<br />     .如果结束<br />     进度条1.位置 = 0<br />     已复制大小 = 0<br />     <br />     ' 2. 复制文件/文件夹（区分文件和目录）<br />     .如果 (文件_是否为目录 (源路径))<br />         ' 复制文件夹（递归复制每个文件）<br />         目录_创建 (目标路径)  ' 先创建目标目录<br />         复制文件夹带进度 (源路径, 目标路径)<br />     .否则<br />         ' 复制单个文件<br />         复制成功 = CopyFileExA (源路径, 目标路径, &复制进度回调, 进度条1.取窗口句柄 (), 假, 0)<br />         .如果 (复制成功 = 假)<br />             信息框 ("文件复制失败！", 0, )<br />         .否则<br />             进度条1.位置 = 100<br />             信息框 ("复制完成！", 0, )<br />         .如果结束<br />     .如果结束<br /> <br /> .子程序 复制文件夹带进度, 逻辑型<br /> .参数 源目录, 文本型<br /> .参数 目标目录, 文本型<br /> .局部变量 文件列表, 文本型, , "文件列表"<br /> .局部变量 子目录列表, 文本型, , "子目录列表"<br /> .局部变量 i, 整数型<br /> .局部变量 源文件, 文本型<br /> .局部变量 目标文件, 文本型<br /> .局部变量 复制成功, 逻辑型<br /> <br />     ' 获取源目录下的文件和子目录<br />     文件列表 = 目录_枚举文件 (源目录, , , 假)  ' 非递归枚举文件<br />     子目录列表 = 目录_枚举目录 (源目录, , , 假)  ' 非递归枚举子目录<br />     <br />     ' 复制当前目录下的文件<br />     .计次循环首 (取数组成员数 (文件列表), i)<br />         源文件 = 文件列表 <i><br />         目标文件 = 目标目录 ＋ “\” ＋ 取文本右边 (源文件, 取文本长度 (源文件) － 取文本长度 (源目录) － 1)<br />         <br />         ' 调用带进度的文件复制<br />         复制成功 = CopyFileExA (源文件, 目标文件, &复制进度回调, 进度条1.取窗口句柄 (), 假, 0)<br />         .如果 (复制成功 = 假)<br />             返回 (假)<br />         .如果结束<br />     .计次循环尾 ()<br />     <br />     ' 递归复制子目录<br />     .计次循环首 (取数组成员数 (子目录列表), i)<br />         复制文件夹带进度 (子目录列表 <i>, 目标目录 ＋ “\” ＋ 取文本右边 (子目录列表 <i>, 取文本长度 (子目录列表 <i>) － 取文本长度 (源目录) － 1))<br />     .计次循环尾 ()<br />     <br />     返回 (真)

qiqixs

2224848 发表于 2025-7-23 03:31
[e=0].版本 2
.支持库 精易, eAPI

抱歉，这个我试过，是无法复制到共享文件的