第一步是将驱动器指示符（Z :)映射到SharePoint文件夹。 例如：

The first step is to map a drive designator (Z:) to your SharePoint folder.  For example:

http：// sharepoint.microsoft.com/Blogs/GetThePoint/Lists/Posts/Post.aspx?ID=465

有关如何完成此操作的其他资源，只需Google 映射驱动器SharePoint

For other resource on how to accomplish this, just Google mapped drive SharePoint

下一步是使用DIR，例如在Excel环境中：

The next step is to use DIR, for example in an Excel environment:

Sub SimpleFileLister（）

Dim s As String，FileName As String

Cells.Clear

s =" Z：\\ \\ *。*"
$
FileName = Dir（s）

Do Until FileName =""

    i = i + 1

   单元格（i，1）.Value = FileName

    FileName = Dir（）

循环

结束子

Sub SimpleFileLister()
Dim s As String, FileName As String
Cells.Clear
s = "Z:\*.*"
FileName = Dir(s)
Do Until FileName = ""
    i = i + 1
    Cells(i, 1).Value = FileName
    FileName = Dir()
Loop
End Sub