- 帖子
- 46
- 主題
- 18
- 精華
- 0
- 積分
- 67
- 點名
- 0
- 作業系統
- WINXP,win7
- 軟體版本
- office2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 肚子裡
- 註冊時間
- 2010-5-22
- 最後登錄
- 2011-10-27
|
本帖最後由 webbliu 於 2011-8-29 11:30 編輯
回復 10# elinbit
Dear 大大
我已經解決,感謝你的指導&建議
非常謝謝
我的解法如下~- Dim sizefile As System.IO.FileInfo
- Dim apath As Sting
- Dim N As Integer
- Dim size =system.IO.Fileinfo
- For i =1 to N
- sizefile = My.Computer.FileSystem.GetFileInfo(apath)
- On Error Resume Next
- If sizefile.Length < 0 Then
- file.WriteLine("miss"+ ": " + apath)
- End If
- 'Else
- ProgressBar1.Value = Int(i / n * 100)
- ProgressBar1.Refresh()
- Next
複製代碼 |
|