❶ VB 复制文件时显示进度条
要用ProgressBar控件
ProgressBar 控件通过从左到右用一些方块填充矩形来表示一个较长操作的进度。
语法
ProgressBar
说明
ProgressBar 控件监视操作完成的进度。
ProgressBar 控件有一个行程和一个当前位置。行程代表该操作的整个持续时间。当前位置则代表应用程序在完成该操作过程时的进度。Max 和 Min 属性设置了行程的界限。Value 属性则指明了在行程范围内的当前位置。由于使用方块来填充控件，因此所填充的数量只能是接近于 Value 属性的当前设置值。基于控件的大小，Value 属性决定何时显示下一个方块。
ProgressBar 控件的 Height 属性和 Width 属性决定所填充控件的方块嫌戚的数量和大小。方块数量越多，控件就越能精确地描述操作进度。为了增加显示方块的数量，需要减少控件的 Height 或者增加其 Width。BorderStyle 属性的设置值同样影响方块的数量和大小。为了适应边框要求，方块的大小要更小一点。
可以用 ProgressBar 控件的 Align 属性把它自动定位在窗体的顶部或底部。
提示 缩小方块的大小直到其所表示的进度增加量与实际进度值达到最接近的匹配程度，应使 ProgressBar 控件的宽度至少是其长度的 13 倍。
下面的示例说明如何用一个名为 ProgressBar1 的 ProgressBar 控件，来表示对一个大数组冗长的操作进度。把一个 CommandButton 控件和一个 ProgressBar 控件放在同一窗体里。示例代码中的 Align 属性把 ProgressBar 控件友者缺定位在沿着窗体的底部。该 ProgressBar 不显示任何文本。
Private Sub Command1_Click()
Dim Counter As Integer
Dim Workarea(250) As String
ProgressBar1.Min = LBound(Workarea)
ProgressBar1.Max = UBound(Workarea)
ProgressBar1.Visible = True
'设置进度的值为 Min。
ProgressBar1.Value = ProgressBar1.Min
'在整个数组中循环。
For Counter = LBound(Workarea) To UBound(Workarea)
'设置数组中每项的初好辩始值。
Workarea(Counter) = "Initial value" & Counter
ProgressBar1.Value = Counter
Next Counter
ProgressBar1.Visible = False
ProgressBar1.Value = ProgressBar1.Min
End Sub
Private Sub Form_Load()
ProgressBar1.Align = vbAlignBottom
ProgressBar1.Visible = False
Command1.Caption = "Initialize array"
End Sub
❷ 电脑拷贝东西不显示进度条
win7 默认开启了远程差分压缩，导致复制和剪切速度减碧胡慢。可以参照下面方法关掉这个服务。
在win7系统下复制、移动、传输或删除文件，尤其是一些大量文件非常慢，速度是非常缓慢的。
其实，win7复制奇慢的主要悔余拦原因是其远程差分压缩服务所致,由于它将同盘复制或移动都当作是远程传送,所以在复制或移动过程中就会在开始的时候对数据进行压缩,然后再传送,传到目毁铅的地后再进行解压缩,导致文件复制或移动变得复杂又漫长,由此可知win7拷贝文件时为什么会变慢了!
要想真正解决这个问题,请按以下具体步骤进行:
1)点开始菜单，进入控制面板，选择“程序”打开“程序和功能”。
2)在“程序和功能”下选择“打开或关闭Windows功能”。
3)稍等片刻，出现“Windows功能”选项框，将里面的“远程差分压缩”选项的勾去掉，然后点“确定”，之后重启计算机即可提高文件复制奇慢的问题。
1、从Win10正式版C:\Windows\下复制Explorer.exe (对应版本)到U盘中;
2、由U盘启动盘进入到WinPE下;
3、然后将复制的Explorer.exe覆盖到目标系统的C:\windows下重启即可
❹ 怎样用批处理拷贝文件并显示进度条
/y/z "大文件" "竖启败存放路径"旁咐
文件不大看不到进度了
/y/z "d:\余颤winxp.gho" "e:\bak"
❺ 批处理如何显示复制文件的进度
批处理不是专门的编程语言，并不方便“可视化”，如果是复制文件过程较长，它虽不方便显示百分比类的进度条，但让其显示复制了什么或新建了什么内容还是可以的，这样让使用者能看出大致碰拆让过程，并使得“界面友好”。如果简单地复制文件，你可以把复制命令后自动提示信息屏蔽掉，并专门写显示命令来表达正在作什么如：
@echo off
:::::::::::::::::
echo 正在复制
for /f "delims=" %%i in ('dir/b/a-d *.jpg')do (
echo %%i
"%%i" d:\bb\ >nul)
复杂点的可看我另一回答中的例子，正好运用了显示进度类的御棚。（不笑局是被采纳那位的例子）
❻ c#如何复制一个较大的文件并显示进度条
拷贝你已经会了，只是不知道怎么显示对吧？ 你在窗体界面上扰橡基拖一个滚动条的控件，然后思路就是将如余这个文件的大小作为一个基数，进度条显示的比例就是你文件实时拷贝的大小，进缓谨度条的快慢就显示了你文件拷贝的磁盘读写速率。很简单。。。
❼ 怎么用批处理显示复制文件时的进度（急）
如下是一个将c:\windows复制到该批处理所在目录并显示进度的批处理例明桐子，你可以根据你的需要来修改。你想显示百分比的话还激拍坦是比较麻烦的，这个取决于文件大小而不是文件多少，文件大小在批处理下显示不出百分比的，但是文件个数却是可以的。
@echo off
setlocal enabledelayedexpansion
set b=/贺芹-\ /-\ **
set 速度=1
set 退格=
set n=0
for %%i in (%SystemRoot%\*.*) do (call :a !n!& %%i>nul 2>nul&set /a n+=1)
goto :eof
:a
set/a a=%1%%10
set/a c=%a%%%4
if %a% EQU 0 set/p=▌<nul
if %c% EQU 3 (set/p=^|<nul) else (set/p=!b:~%a%,1!<nul)
ping/n %速度% 127.1>nul
set/p=%退格%<nul
goto :eof
❽ 易语言 如何复制当前文件夹的文件并显示进度条
我刚好有写过这样的超大文件的易语言复制进度，下面是代码，我直接复制上来，你修改下就可以了，不懂M我
-----------------------------------------------------------------------------------
.版本 2
.支绝升持库 iext
.程序集 备份窗口程序集
.程序集变量 累计数量, 整数型
.子程序 _备份窗口_创建完毕
.局部变量 循环次数, 整数型
.局部变量 n, 整数型
累计数量 ＝ 0
备份窗口.可视 ＝ 真
循环次数 ＝ _启动窗口.列表框1.取项目数 ()
进度条1.最大位置 ＝ 循环次数
.计次循环首 (循环次数, n)
创建含宏帆多级目录 (_启动窗口.编辑框1.内容 ＋ “\” ＋ 到文本 (取日期 (取现行时间 ())) ＋ 取文本右边 (_启动窗口.列表框1.取项目文本 (n － 1), 取文本长度 (_启动窗口.列表框1.取项目文本 (n － 1)) － 2))
递归寻找 (_启动窗口.列表框1.取项目文本 (n － 1))
进度条1.位置 ＝ n
.计次循环尾 ()
开始复制文件 ()
.子程序 递归寻找, , , 递归样式
.参数 目录, 文本型
.局部变量 文件名, 文本型
处理事件 () ' 防止程序假死
.如果真 (取文本右边 (目录, 1) ≠ “\”)
目录 ＝ 目录 ＋ “\”
.如果真结束
文件名 ＝ 寻找文件 (目录 ＋ “*.*”, )
.判断循环首 (文件名 ≠ “”)
累计数量 ＝ 累计数量 ＋ 1
备份窗口.标题 ＝ “找到文件个数：” ＋ 到文本 (累计数量) ＋ “个”
列表框1.加入项目 (目录 ＋ 文件名, )
列表框1.现行选中项 ＝ 累计数量
文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
文件名 ＝ 寻找文件 (目录 ＋ “*.*”, #子目录)
.判断循环首 (文件名 ≠ “”)
.如果真 (取文本左边 (文件名, 1) ≠ “.”)
递归寻找 (目录 ＋ 文件名)
创建多级目录 (_启动窗口.编辑框1.内容 ＋ “\” ＋ 到文本 (取日期 (取现行时间 ())) ＋ 取文本右边 (目录 ＋ 文件名, 取文本长度 (目录 ＋ 文件名) － 2))
.如果真结束
文件名 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()
.子程序 _备份窗口_可否被关闭, 逻辑型
返回 (假)
.子程序 开始复制文件
.局部变量 n, 整数型
.局部变量 进度位置, 小数型, , "2"
.局部变量 临时路径, 文本型
进度条1.最大位置 ＝ 100
进度位置 [1] ＝ 100 ÷ 累计数量
.计次循环首 (累计数量, n)
进度位置 [2] ＝ 进度位置 [2] ＋ 进度位置 [1]
进度条1.位置 ＝ 进度位置 [2]
临时路径 ＝ 列表框1.取项目文本 (n － 1)
列表框1.现行选中项 ＝ n － 1
复制进程 (临时路径, _启动窗口.编辑框1.内容 ＋ “\” ＋ 到文本 (取日期 (取现行时间 ())) ＋ 取文本右边 (临时路径, 取文本长度 (临时路径) － 2))
透明标签3.标题 ＝ 到文本 (进度条1.位置) ＋ “%”
.计次循环尾 ()
销毁 ()
.子程序 复制进程
.参数 临时路径, 文本型
.参数 写到的文件, 文本型
.局部变量 临时数值, 整数型
.局部变量 临时字节, 字节集
.局部变量 取值次数, 整数型
.局部变量 最后取值, 整数型
.局部变量 读入文件号, 整数型
.局部变量 次数循环, 整数型
.局部变量 读入的数据, 字节集
.局部变量 读入的摘要, 文本型
.局部变量 文件大小, 长整数型
.局部变量 最后摘要, 文本型
.局部变量 进度位置, 小数型, , "2"
.局部变量 读入长度, 长整数型
.局部变量 属性文本, 文本型
.局部变量 临时文件号, 整数型
临时数值 ＝ 取文件尺寸 (临时路径)
临时字节 ＝ 到字节集 (临时数值)
文件大小 ＝ 取字节集数据 (临时字节, #长整谈雹数型, )
取值次数 ＝ 到整数 (文件大小 ÷ 取值大小)
最后取值 ＝ 文件大小 － 取值次数 × 取值大小
进度位置 [1] ＝ 100 ÷ 取值次数
关闭文件 (读入文件号)
关闭文件 (临时文件号)
读入文件号 ＝ 打开文件 (临时路径, , )
移动读写位置 (读入文件号, #文件首, 0)
写到文件 (写到的文件, 到字节集 (“”))
临时文件号 ＝ 打开文件 (写到的文件, , )
.计次循环首 (取值次数, 次数循环)
进度位置 [2] ＝ 进度位置 [2] ＋ 进度位置 [1]
进度条2.位置 ＝ 进度位置 [2]
透明标签4.标题 ＝ 到文本 (进度条2.位置) ＋ “%”
读入的数据 ＝ 读入字节集 (读入文件号, 取值大小)
移动读写位置 (临时文件号, #文件尾, 0)
写出字节集 (临时文件号, 读入的数据)
.计次循环尾 ()
读入的数据 ＝ 读入字节集 (读入文件号, 最后取值)
移动读写位置 (临时文件号, #文件尾, 0)
写出字节集 (临时文件号, 读入的数据)
进度条2.位置 ＝ 100
透明标签4.标题 ＝ 到文本 (进度条2.位置) ＋ “%”
关闭文件 (读入文件号)
关闭文件 (临时文件号)
.子程序 创建多级目录
.参数 目录名称, 文本型
.局部变量 当前路径, 文本型
.局部变量 目录名, 文本型, , "0"
.局部变量 索引, 整数型
目录名 ＝ 分割文本 (目录名称, “\”, )
.计次循环首 (取数组成员数 (目录名), 索引)
创建目录 (当前路径 ＋ 目录名 [索引])
当前路径 ＝ 当前路径 ＋ 目录名 [索引] ＋ “\”
.计次循环尾 ()