Скрыть индикатор копирования - VB

Формулировка задачи:

Добрый день! Столкнулся с такой проблемой....нужно чтобы при копировании файла из одной папки в другую не появлялся прогрессбар....т.е. копирование в тихом режиме....как программно запретить винде выводить индикатор копирования ума не приложу....прошу помощи!

Код к задаче: «Скрыть индикатор копирования - VB»

textual
Private Function CopyMoveFiles(Operation As Integer, FileNames As Variant, MoveTo As String, ShowConfirmation As Boolean, HideProgress As Boolean, RenameOnCollision As Boolean) As Boolean
    Dim r As Long
    Dim i As Integer
    Dim sOrig As String
    Dim SHFileOp As SHFILEOPSTRUCT
 
    If IsArray(FileNames) Then
        For i = LBound(FileNames) To UBound(FileNames)
            sOrig = sOrig & FileNames(i) & Chr$(0)
        Next i
    Else
        sOrig = FileNames & Chr$(0)
    End If
 
    With SHFileOp
        .wFunc = Operation
        .pFrom = sOrig
        .pTo = MoveTo
        If Not ShowConfirmation Then
            .fFlags = FOF_NOCONFIRMATION
        End If
        If HideProgress Then
            .fFlags = .fFlags Or FOF_SILENT
        End If
        If RenameOnCollision Then
            .fFlags = .fFlags Or FOF_RENAMEONCOLLISION
        End If
    End With
 
    r = SHFileOperation(SHFileOp)
 
    If r = 0 Then
        CopyMoveFiles = Not SHFileOp.fAborted
    Else
        CopyMoveFiles = False
    End If
End Function

9   голосов, оценка 3.778 из 5


СОХРАНИТЬ ССЫЛКУ