在网上找到一个进度条实例，想把它改成解压一个压缩文件进度显示。就是解一个rar压缩文件包。
Dim Total As String
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1
lbl1.Caption = lbl1.Caption + 1
If ProgressBar1.Value = 100 Then
Timer1.Enabled = False
lbl1.Caption = "100"
End If
End Sub
请版主和各位热心的好友帮我一下。谢谢。

就是解压一个文件，让进度条来显示解压进度。

顺便问一下，我想把1.exe放在程序文件里，怎么改一下路劲。
If Dir("\1.exe") = "" Then MsgBox "不存在！" Else Kill "c:\1.exe"

版主，我的意思是 用VB编一个软件来解压一个.rar的压缩文件，想让软件判断什么时间解压完，同事解压的时间要与进度条同步。谢谢。

[ 本帖最后由 事业男儿 于 2012-10-24 15:13 编辑 ]