Question

我正在编写一个函数，试图获取上周已上传到SharePoint目录的所有文件的文件路径。然后，我想将文件复制到我的本地PC。

我的想法是这样的

功能1 - 获取文件夹列表

功能2 获取每个文件夹并搜索每个文件夹的文件路径上周创建的文件并返回文件路径数组

功能3 - 根据文件路径数组复制文件

我遇到阵列问题。我想根据每个文件夹中的文件数预先指定数组大小。我的代码和错误在

之下

任何人都可以看到问题

{{1}}

未找到编译错误方法或数据成员：FileCount = objFiles.Count

Answer 1

虽然我无法理解为什么我会收到错误，但我找到了一个似乎可以做我需要的函数online。我调整了函数并将函数添加到上面的代码中

Public Function CountFiles(xPath As String)

Dim xCount As Long
Dim xFile As String

xPath = "C:\temp\HelloWorld\"
xFile = Dir(xPath)
Do While xFile <> ""
    xCount = xCount + 1
    xFile = Dir()
Loop
CountFiles = xCount

End Function

VBA使用FileSystemObject获取文件计数

1 个答案: