Dim nResult As Integer = CopyFileEx(" ...

Microsoft.VisualBasic.FileSystem.FileCopy(strVon, strNach)

    Function Kopie(ByVal strVon As String, ByVal strNach As String, ByVal _
      intGröße As Long)
 
        Dim strDrive As String
        Dim intProgress As Long
        strDrive = vb.Left(strVon, 1) & ":\"
        If DriveExists(strDrive) Then
            ' try
            pb2.Maximum = intGröße
            pb2.Value = 0
            Microsoft.VisualBasic.FileSystem.FileCopy(strVon, strNach)
            Application.DoEvents()
            ' catch
            ' end try
        End If
    End Function

k = 1
 
            Do While Not k > intAnzahlDateien
                tbx1.Text = CStr(intProzent) + "% - kopiere:" + strKopie(k, 1)
                Kopie(strKopie(k, 1), strKopie(k, 2) + strKopie(k, 0), strKopie( _
                  k, 5))
                balken(intProzent)
                k += 1
            Loop