%@LANGUAGE="VBSCRIPT"%> <% Option Explicit 'Option Explicit requires that you declare all variables Dim strDocsPath, strDocsPhysicalPath Dim objFSO, objFolder, objFiles, objFile Dim strName, strFile, strType, lngSize ' NOTE: set the following line to the folder to display strDocsPath = "STXDocuments" 'NOTE: Change this setting to the folder in your directory that contains 'the files you want to list ' 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) %>
![]() |
|
|
||||||||||
|
|
||||||||||||
|
|
||||||||||||
|
|
|
|||||||||||
|
|
||||||||||||
|
||||||||||||