none
文件复制 RRS feed

  • 问题

  • 请问诸位贤知:
           用什么样的方法能获取粘贴单个文件的进度?(比如以KB为单位或以MB为单位)
    2009年12月21日 13:11

答案

  • Sub copyfilewithprogress()
    
      Dim sr As New IO.FileStream(stroldfile, IO.FileMode.Open) 'source file
      Dim sw As New IO.FileStream(strnewfile, IO.FileMode.Create) 'target file, defaults overwrite
      Dim len As Long = sr.Length - 1
    
    
      For i As Long = 0 To len
        sw.WriteByte(sr.ReadByte)
        If i Mod 1000 = 0 Then 'only update UI every 1 Kb copied
          ProgressBar1.Value = i * 100 / len
          Application.DoEvents()
        End If
      Next
      ProgressBar1.Value = 0
    End Sub

    http://feiyun0112.cnblogs.com/
    • 已建议为答案 Raymond TangModerator 2009年12月22日 2:13
    • 取消建议作为答案 CXJust 2009年12月22日 3:52
    • 已标记为答案 CXJust 2009年12月24日 13:57
    2009年12月22日 1:12
    版主