使用 vba 执行文件和文件夹操作（随进度复制 - FileIO.UIOption.AllDialogs）

Question

我无法使用 copyFile 获取进度窗口

工作示例：

Sub File()

Dim FSO As Object
Dim foi As Object
Dim fo As Object
Dim fi As Object
Dim testfs As String
Dim FileIO
Set FSO = CreateObject("Scripting.FileSystemObject")


'Set FSO = CreateObject("Scripting.FileSystemObject")
'Set FileSystem = CreateObject("Scripting.FileSystemObject")


Set fo = FSO.GetFolder("C:\Users\Peer\Desktop\Cache\vba\NeuerOrdner\") 

For Each foi In fo.Files 
  Debug.Print foi.Name
  testfs = foi.Name
Next foi

Set fi = FSO.GetFile(fo.Path & "\" & testfs) 

'working copy
FSO.CopyFile fi.Path, fi.ParentFolder.Path & "\NeuerOrdner\", True

End Sub

这导致错误

'Error: Object required (Error 424)
FSO.CopyFile fi.Path, fi.ParentFolder.Path & "\NeuerOrdner\", FileIO.UIOption.AllDialogs

此外，我不能像示例中那样使用括号，我不知道为什么

'Compile Error: Expected: =
FSO.CopyFile(fi.Path, fi.ParentFolder.Path & "\NeuerOrdner\", True)

我从这里得到了解决方案： 如何调出内置的文件复制对话框？