скрытие окна прогресса во время передачи файла

Question

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

Программы VB отлично работают (скомпилированы в EXE) на моем новом ноутбуке с Windows 8. Но иногда, когда операция копирования файла задерживается или отстает в Windows, на переднем плане появляется окно мини-прогресса (подготовка к копированию , x%).

Это раздражает, когда я пытаюсь работать на своем ноутбуке.

На этой теме, вы можете увидеть скриншот того, что этот прогресс окна выглядит (по аналогии не точна) Is there an API for the Windows 8 progress dialog API?

Для копирования файлов, я использую

FileCopy oldfile, newfile 

Я могу также использовать

bSuccess = ShellFileCopy(oldfile, newfile) 

Есть ли какой-либо атрибут, который я могу установить с помощью любой из этих команд, чтобы отключить или минимизировать мини-окно прогресса во время файла t ransfers?

Альтернативно, есть ли другая команда или расширение оболочки, которую я могу попробовать, что позволяет мне отключить или минимизировать мини-окно прогресса во время передачи файлов?

Answer 1

Вот два дополнительные способ, вы можете попробовать:

With CreateObject("Scripting.FileSystemObject") 
    .CopyFile oldFile, newFile, True ' (True overwrites, if it exists) 
End With 

Или (используйте командную строку copy):

With CreateObject("WScript.Shell") 
    .Run "%comspec% /c copy """ & oldFile & """ """ & newFile & """", 0, True 
End With