复制文件时如何隐藏windows复制对话框

Question

通过 vb.net 复制文件时如何隐藏 windows 复制对话框，只使用 vb.net 表单中的进度条？ 这是我正在使用的代码：

Public Structure SHFILEOPSTRUCT
    Public hWnd As Integer
    Public wFunc As Integer
    Public pFrom As String
    Public pTo As String
    Public fFlags As Integer
    Public fAborted As Integer
    Public hNameMaps As Integer
    Public sProgress As String
End Structure

Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (ByRef lpFileOp As SHFILEOPSTRUCT) As Integer
Private Const FO_COPY As Int32 = &H2
Private Const FO_DELETE As Int32 = &H3
Private Const FO_MOVE As Int32 = &H1

Private Sub Copy()
    Dim shStructure As New SHFILEOPSTRUCT
    Dim currentpath As String = lblShare_Path.Text
    Dim newpath As String = txtBackupLocation.Text
    With shStructure
        .wFunc = FO_COPY
        .pFrom = currentpath
        .pTo = newpath
    End With
    SHFileOperation(shStructure)
End Sub

Private Sub btnBackup_Click(sender As Object, e As EventArgs) Handles btnBackup.Click
    Copy()

    progbarStatus.Minimum = 0
    progbarStatus.Maximum = DataGridView1.Rows.Count - 1
    For i = 0 To DataGridView1.Rows.Count - 1
        progbarStatus.Value = i
    Next
End Sub

Answer 1

我建议您使用IO.FileStream来复制文件并以这种方式获取进度值：

Dim CF As New IO.FileStream("C:\[Copy From]", IO.FileMode.Open)
Dim CT As New IO.FileStream("C:\[Copy To]", IO.FileMode.Create)
Dim len As Long = CF.Length - 1
Dim buffer(1024) As Byte
Dim byteCFead As Integer

While CF.Position < len
    byteCFead = (CF.Read(buffer, 0, 1024))
    CT.Write(buffer, 0, byteCFead)
    ProgressBar.Value = CInt(CF.Position / len * 100)
    Application.DoEvents()
End While

CT.Flush()
CT.Close()
CF.Close()