hente fil via indputfelt

:-(

Nedenstående viser en liste med links til indholdet af hver fil i et directory.

Du kan lægge alle filerne ind i et array af strings, og så pege på dem med et nummer, men prøv lige denne kode. HUSK at ændre filepath til din sti.

<body>
<%

Dim Dirnames
rootpath= Server.MapPath("..")
filepath= "\doc" '
SearchPath = rootpath & filepath
%>

<h2>Select a File to Download</h2>
<p>Search: <%= filepath %></p>
<table border="0" cellspacing="2" cellpadding="3">
  <tr>
      <th width="200" class="Label">Server File</th>
      <th width="80" class="Label">Size</th>
  </tr>
<%  Dim objFS, objFolder, objFile

  Set objFS = Server.CreateObject("Scripting.FileSystemObject")
  Set objFolder = objFS.GetFolder(SearchPath)

  For Each objFile In objFolder.Files
%>
  <tr>
      <td>
        <a href="<%= ".." & filepath & "/" & (objFile.Name)%>" target="_blank"><%=objFile.Name%></a>
      </td>
      <td class="Normal" align="right"><%= FormatNumber(objFile.Size, 0) %></td>
  </tr>
<%  Next
  Set objFile = Nothing
  Set objFolder = Nothing
  Set objFS = Nothing
%>
</table>
<p>&nbsp;</p>
</body>

Glemte lige at rootpath skal pege på roden
Hvis du afvikler direkte i roden rootpath= Server.MapPath(".")
Hvis du afvikler i et direktorie rootpath= Server.MapPath("..")