Скрыть индикатор копирования - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д