Søg
Avatar billede hundevennen Nybegynder
07. januar 2008 - 09:32 Der er 2 kommentarer og
1 løsning

hente fil via indputfelt

Jeg har 200 word docs og vil gerne kunne finde et enkelt frem
ved at taste et nummer i et inputfelt og så ENTER og derved skal word dokumentet åbne.
Dokumenterne har numrene 1 - 200

Selve formen kan jeg godt lave , men løsningen via et FSO kan jeg ikke, men det er vel en løsning med det?
Avatar billede hundevennen Nybegynder
07. januar 2008 - 20:54 #1
:-(
Avatar billede j_andersen Nybegynder
08. januar 2008 - 13:41 #2
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>
Avatar billede j_andersen Nybegynder
08. januar 2008 - 13:45 #3
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("..")
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 14:10 Komme ind på : YouSeeMusic" Af Ikke-ekspert i Musik & videoafspillere
I dag 13:27 Send/modtag i Outlook 2024 Af ErikHg i E-mail programmer
10/0915:34 Installer alarmlyd på Samsung Galaxy XCover 7 Pro Af ErikHg i Mobiltelefoner
08/0913:06 Kan ikke starte min pc Af Malm i PC
07/0919:20 DVD program Af dcedata1977 i Andet software
White papers
Flere white papers »