Скрыть индикатор копирования - 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
Похожие ответы