我对 VBA 相当陌生,非常感谢您对这个程序的任何帮助!
该程序的目标是将所有特定文件类型 (.pdf) 从网络复制到桌面上的文件夹中。但是,(.pdf) 文件位于每个文件夹的子文件夹中。
如果我让用户定义文件夹(带有许多子文件夹),我希望程序将每个 .pdf 从每个子文件夹复制到目标文件夹中。
这是我到目前为止浏览互联网所得到的。
Sub Copy_test2()
Dim FSO As Object, fld As Object
Dim fsoFile As Object
Dim fsoFol As Object
FromPath = "D:\Users\A\Desktop\test1" 'user will define this
ToPath = "D:\Users\A\Desktop\test2" 'this will be the folder on the desktop
If Right(FromPath, 1) <> "\" Then
FromPath = FromPath & "\"
End If
Set FSO = CreateObject(“Scripting.FileSystemObject”)
Set fld = FSO.GetFolder(FromPath)
If FSO.FolderExists(fld) Then
For Each fsoFol In FSO.GetFolder(FromPath).subfolders
For Each fsoFile In fsoFol.Files
If Right(fsoFile, 3) = “pdf” Then
fsoFile.Copy ToPath
End If
Next
Next
End If
End Sub
当我运行它时,我得到: Run-time Error '424' Object Required for
Set FSO = CreateObject(“Scripting.FileSystemObject”)
我是否以正确的方式处理此代码?还是有替代方法来完成这项任务?
谢谢!