[cuberat]

Wrapped with some style (CSS) and nice background images, this makes it easy to present a polished interface for sharing files.

Code:  select

Highlight Mode: (ASP)
dim fs,fo,x
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("X:\www\resources")
 
for each x in fo.files
  Response.write("<a href='"& x.Name & "'>" & x.Name & "</a><br />")
next
 
set fo=nothing
set fs=nothing
 
 

[Telonik]

Nice, I'll be using this. Thank you!

Wrapped with some style (CSS) and nice background images, this makes it easy to present a polished interface for sharing files.

Code:  select

Highlight Mode: (ASP)
dim fs,fo,x
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("X:\www\resources")
 
for each x in fo.files
  Response.write("<a href='"& x.Name & "'>" & x.Name & "</a><br />")
next
 
set fo=nothing
set fs=nothing