Directory broesing.asp :0)

Liste af filer i en folder:

<%
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

'Get the folder object associated with the directory
Dim objFolder
Set objFolder = objFSO.GetFolder("C:\InetPub\wwwroot")

Response.Write "The files found in " & objFolder.Name & ":<br>"

'Loop through the Files collection
Dim objFile
For Each objFile in objFolder.Files
  Response.Write objFile.Name & "<br>"
Next

'Clean up!
Set objFolder = Nothing
Set objFile = Nothing
Set objFSO = Nothing
%>

Nu er jeg jo ikke lige nogen ørn til det her, så kan jeg ikke få dig til at lave filen til mig og så maile den på dj@happyhenrik.dk ? :0)

Jeg glemte lige at sige, at det skal være sådan at man kan klikke på filerne :0)

Det er let du kan selv lave en fil med det indhold. Bare copy/paste dette ind i notepad og så tryk "save as" så kald den index.asp



<html>
<head></head>
<body>
<%
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

'Get the folder object associated with the directory
Dim objFolder
Set objFolder = objFSO.GetFolder(Server.MapPath("."))

Response.Write "The files found in " & objFolder.Name & ":<br>"

'Loop through the Files collection
Dim objFile
For Each objFile in objFolder.Files
  Response.Write objFile.Name & "<br>"
Next

'Clean up!
Set objFolder = Nothing
Set objFile = Nothing
Set objFSO = Nothing
%>
</body>
</html>

Det virker jo superduper - men kan man lave filen så det er muligt at klikke/downloade de filer der vises ?

Så skal man lave det som udskriver navnet på filen om til at udskrive et link til filen.:

Så prøv at rette denne linie:
Response.Write objFile.Name & "<br>"

Til:
Response.Write "<a href=""" & objFile.Name & """>" & objFile.Name & "</a><br>"

Det er smukt - længe leve Eksperten.dk og alle dens flittige hjælpere :0)

Tak for det - det hjalp:

http://spas.happyhenrik.dk/