VBA 获取局域网共享文件夹内的所有文件信息

在VBA（Visual Basic for Applications）中，你可以通过ADO（ActiveX Data Objects）对象模型来获取局域网共享文件夹内的所有文件信息。以下是一个简单的步骤示例：

1. 首先，你需要引用`Microsoft ActiveX Data Objects`库（在VBA Editor中选择“Tools” > “References”并找到它添加引用）。

2. 创建一个ADODB.Recordset对象，用于存储结果集：

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

3. 使用以下连接字符串来指定共享文件夹路径（记得替换 `<share_path>` 和 `<username>`、`<password>` 为实际的网络路径和登录凭据）：

Dim connStr As String
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=<share_path>;Extended Properties=""DRIVER=\\.\pipe\ncacn_np:\\hostname\ipc$;Initial Catalog=;User Id=<username>;Password=<password>"";"

4. 打开记录集，并设置SQL查询以列出文件夹内容：

rs.Open "SELECT * FROM [$(drive):] WHERE FILENAME LIKE '*.*'", connStr, adOpenDynamic, adLockOptimistic

这里的 `*.*` 表示匹配所有文件（包括文本、图片等），如果你只想获取特定类型的文件，可以修改这部分。

5. 然后你可以遍历记录集，打印或处理每个文件的信息：

Do While Not rs.EOF
    Debug.Print rs.Fields("FileName") ' 可能有其他字段名如 "Path"
    rs.MoveNext
Loop

6. 关闭记录集释放资源：

rs.Close
Set rs = Nothing