www.RobertKaindl.com Table of Contents

<% Dim objFileScripting, objFolder Dim filename, filecollection, strDirectoryPath, strUrlPath strDirectoryPath=Server.MapPath("/") strUrlPath="\" 'get file scripting object Set objFileScripting = CreateObject("Scripting.FileSystemObject") 'Return folder object Set objFolder = objFileScripting.GetFolder(strDirectoryPath) 'return file collection In folder Set filecollection = objFolder.Files 'create the links For Each filename In filecollection If Left(Filename,1)<>"_" Then Filename=right(Filename,len(Filename)-InStrRev(Filename, "\")) Response.Write "  " & filename & " " End If Next %>