请用vba写一个程序,输入为网络硬盘的地址,输出为不同文件夹的名称与修改时间
时间: 2024-03-02 17:53:57 浏览: 16
以下是一个示例程序,可以输入网络硬盘的地址,输出其中每个文件夹的名称和修改时间:
```
Sub GetFolderInfo()
Dim FolderUrl As String
FolderUrl = InputBox("请输入网络硬盘的地址:")
Dim HttpReq As Object
Set HttpReq = CreateObject("MSXML2.XMLHTTP")
HttpReq.Open "GET", FolderUrl, False
HttpReq.send
Dim HtmlDoc As Object
Set HtmlDoc = CreateObject("htmlfile")
HtmlDoc.body.innerHTML = HttpReq.responseText
Dim Folders As Object
Set Folders = HtmlDoc.getElementsByTagName("a")
Dim Folder As Object
For Each Folder In Folders
If Left(Folder.href, 7) = "file:///" Then ' 仅处理文件夹
Dim FolderUrl As String
FolderUrl = Replace(Folder.href, "file:///", "")
Dim FolderInfo As String
FolderInfo = Folder.innerText & "," & GetFolderModifiedDate(FolderUrl)
Debug.Print FolderInfo ' 输出到调试窗口
' TODO: 可以将结果保存到Excel等文件中
End If
Next
End Sub
Function GetFolderModifiedDate(FolderUrl As String) As String
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim Folder As Object
Set Folder = FSO.GetFolder(FolderUrl)
GetFolderModifiedDate = Folder.DateLastModified
End Function
```
该程序通过HTTP请求获取网络硬盘的HTML页面,解析其中包含的文件夹链接,然后通过Scripting.FileSystemObject对象获取每个文件夹的修改时间。您可以根据需要对结果进行进一步处理和保存。