Question

VB 求一个删除进度条实例

如何获取当前删除文件的进度，如：有10个文件每删除一个进度条向当进一下。
进度条不带任何功能自己本身运行我懂，但不知如何应用到删除，复制，下载等程序中。
可以给一个简单的例子，但请加上注解谢谢！！！！

Answer 1

进度条.max=10 '设置进度条属性
进度条.min=0
进度条.value=0

for i=1 to 10 '开始循环删除
' 删除第 i 个文件的代码
进度条.value=i '设置进度
next

追问

再请教如果文件很大，这样的话会不会出现不准确的现象呢？
因为大文件不是马上删除，“而' 删除第 i 个文件的代码”
还没删完接就运行 “进度条.value=i '设置进度”
的现象呢？？？
比如：我要删除的是复制文件，一个1G的大文件电脑不会马上完成复制
但进度条一直在走，走完了还没复制完哪就没什么效果了

追答

' 删除第 i 个文件的代码，当这个文件删除完毕后，程序才会往下执行，所以如果是大文件，会出现“卡”的现象，程序短时间没响应。

追问

我用你的方法试了下，但出现提示文件不存在的错误，问题是我新建的测试文件明明存在，而且
奇怪的是提示错误但新建的文件是删除了成功了，代码如下请给看看是否有不对的
Private Sub Command1_Click()
For i = 0 To 1
Kill ("f:\*txt")
ProgressBar1.Value = i
Next
End Sub
Private Sub Form_Load()
ProgressBar1.Max = 2
ProgressBar1.Min = 0
ProgressBar1.Value = 0
End Sub

追答

f:\*txt 这是什么文件？你确定存在？

追问

是的，我新建的

我想是Kill ("f:\*txt")这行代码错了，因为这样一来第一次执行就全删除了所以第二次就找不到文件了

您认为呢？？是不是应该要获取文件名再放入数组这样运行一次删除一个，有什么方法吗？？？

追答

*.txt，你少写了一个小数点！而且kill *.txt 是一次将所有txt文件删除！循环到第二次已经无文件当然出错，你可以这样：
1、将文件改名为 1.txt，2.txt
2、代码修改：
For i = 1 To 2
Kill "f:\" & i & ".txt"

追问

但如果我的文件名不是1或2之类的数字呢？这样就无法使用"f:\" & i & ".txt"了该如何办呢？

追答

先想办法将需要删除的文件名存到一个字符串数组中（详细可百度“VB 遍历 目录 文件名数组”），然后用循环，读出数组中每一个文件名，Kill之！

Answer 2

很多人喜欢用进度条，个人觉得是很麻烦的。
不如做个小图片，利用timer控制一直移动。
操作进度用百分比表示

比如：删除50个文件，当前删除了4个，则显示 (int(100*4/50)+0.5)/100
这样看着更舒服点。 是不是？