文件传输期间隐藏进度窗口

Question

我有一些我编写的旧的可视化基础程序，每小时运行一次，以便在文件夹之间传输文件。

VB程序在Windows 8的新笔记本电脑上工作正常（编译成EXE）。但偶尔当文件的复制操作延迟或滞后于Windows时，迷你进度窗口出现在前台（准备复制， x％完成）。

当我尝试在笔记本电脑上工作时，这很烦人。

在这个帖子中，你可以看到这个进度窗口的截图（类似的不完全）   Is there an API for the Windows 8 progress dialog API?

要复制文件，请使用

FileCopy oldfile, newfile

我也可以使用

bSuccess = ShellFileCopy(oldfile, newfile)

我可以使用这些命令设置任何属性，以便在文件传输期间禁用或最小化进度迷你窗口吗？

或者，是否有我可以尝试的另一个命令或shell扩展，这允许我在文件传输期间禁用或最小化进度迷你窗口？

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