Jag har denna kod och den fungerar:
<code>
<%
Dim FSO, myFolder, myFiles
Set FSO = CreateObject("Scripting.FileSystemObject")
Set myFolder = FSO.GetFolder(Server.MapPath("/upload/styrelsen/protokoll/"))
Set myFiles = myFolder.Files
For Each fileFound In myFiles
Response.Write(fileFound.Name & "<br>")
Next
%>
</code>
Skulle vilja ha att alla filer blir klickbara till filen?
<code>
<%
Dim FSO, myFolder, myFiles
Set FSO = CreateObject("Scripting.FileSystemObject")
Set myFolder = FSO.GetFolder(Server.MapPath("/upload/styrelsen/protokoll/"))
Set myFiles = myFolder.Files
For Each fileFound In myFiles
Response.Write(fileFound.Name & "<br>")
Next
%>
</code>
Skulle vilja ha att alla filer blir klickbara till filen?
Kommentera