<%@ Language=VBScript %>
<HTML>
<BODY>
<%
Dim objFileScripting, objFolder
dim filename, filecollection, strDirectoryPath, strUrlPath
strDirectoryPath="c:\inetpub\scripts\"
strUrlPath="\scripts\"
Set objFileScripting = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFileScripting.GetFolder("c:\inetpub\scripts\")
Set filecollection = objFolder.Files
For Each filename in filecollection
Filename=right(Filename,len(Filename)-InStrRev(Filename, "\"))
Response.Write "<A HREF=""" & strUrlPath & filename & """>" & filename & "</A><BR>"
Next
%>
</BODY>
</HTML>
bu kodu .asp uzantılı olarak kaydet. Burada şunu kendine göre düzelt:
strDirectoryPath="c:\inetpub\scripts\"
strUrlPath="\scripts\"
GetFolder("c:\inetpub\scripts\")
