節錄
http://support.microsoft.com/kb/218606/zh-tw

        Option Explicit

        Dim strDocsPath, strDocsPhysicalPath
        Dim objFSO, objFolder, objFiles, objFile
        Dim strName, strFile, strType, lngSize

        ' NOTE: set the following line to the folder to display
        strDocsPath = "docs"

        ' map the folder to a physical path
        strDocsPhysicalPath = Server.MapPath(strDocsPath)

        ' create a system file object
        Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

        ' create an object for the folder
        Set objFolder = objFSO.GetFolder(strDocsPhysicalPath)

----

        ' create a files collection
        Set objFiles = objFolder.Files

        ' step through the files collection
        For Each objFile in objFiles

                ' get a file's name
                strName = objFile.Name

                ' make it lowercase for the URL
                strFile = Lcase(strName)

                ' get the file's type
                strType = objFile.Type

                ' make the name a title for display
                strName = MakeTitle(strName)

                ' get the file size in KB
                lngSize = objFile.Size\1024

                ' output the filename and URL
                Response.Write "<li><a href=""" & strDocsPath & "/" &
strFile & """>" &strName & "</a><br>"

                ' output the file's size and type
                Response.Write "<em>(" & lngSize & "KB " & strType &
 ")</em></li>" & vbCrLf

        Next

        ' this function simply drops the extension from a file
        Function MakeTitle(strTemp)
                If InStrRev(strTemp,".") Then
                        strTemp = Left(strTemp,InStrRev(strTemp,".")-1)
                End If
                MakeTitle = strTemp
        End Function