<% Dim FSObj,FldObj,FilesCollectionObject,item Dim filePath ' Directory of Chapters.mdb file filePath = Server.MapPath("/Welcome2/serLibrary") set FSObj=Server.CreateObject("Scripting.FileSystemObject") set FldObj=FSObj.GetFolder(filePath) set FilesCollectionObj = FldObj.Files For Each Item in FilesCollectionObj%> <% Response.Write Item.Name %>
<% Next %>

Click here to open Uplink

INSTRUCTIONS: The Add Documents to a Library is a copy and paste operation. First - click on the Browse button and find the file on your computer that you wish to make available in the library. Do not click on the Open button but Right Click the file to be uploaded then click the Copy option. Now you can close the Browse screen and click the "Click Here to Uplink" link to open the Library. You will see all the files in the library folder. Right Click on any open area and then click the paste option on the drop down options box to paste the file into the library folder. You can see that it is now in the file. Close the Uplink by using the Back Button to move back to where you were on the web site.