相关疑难解决方法(0)

这是我第一次提问,所以希望我遵守协议.这是参考"获取vba 中的子目录列表 " 获取 vba 中的子目录列表.

我找到了Brett的例子#1 - 使用FileScriptingObject最有帮助.但是在结果中还需要一个数据元素(DateLastModified).我试图修改代码,但一直得到无效的限定符错误.以下是我做的代码修改:

1. 范围("A1:C1")=数组("文件名","路径","上次修改日期").
2. Do while循环添加了这个=> Cells(i,3)= myFile.DateLastModified.

将非常感谢帮助包括"上次修改日期".

Santosh这里是完整的代码,注释表示修改.

Public Arr() As String
Public Counter As Long

Sub LoopThroughFilePaths()
Dim myArr
Dim i As Long
Dim j As Long
Dim MyFile As String
Const strPath As String = "c:\temp\"
myArr = GetSubFolders(strPath)
Application.ScreenUpdating = False
'Range("A1:B1") = Array("text file", "path")' <= orig code
Range("A1:C1") = Array("text file", "path", "Date Last Modified") ' <= modified code
    For j = LBound(Arr) To UBound(Arr)
        MyFile …