Søg
Avatar billede willi Nybegynder
21. marts 2005 - 22:48 Der er 6 kommentarer og
1 løsning

Vis filer i det aktuelle directory

Denne:
<%
' Variabler
Dim fso, f, filespec

' Find den fysiske placering af folderen
filespec = Server.Mappath("/tutorials/asp/lektion14.asp")

' FileSystem objektet
Set fso = CreateObject("Scripting.FileSystemObject")

' File objektet
Set f = fso.GetFile(filespec)

' Find og skriv egenskaberne
Response.Write "<h1>Filen: " & filespec & "</h1>"
Response.Write "<p>Blev oprettet: " & f.DateCreated
Response.Write "<p>Er sidst redigeret: " & f.DateLastModified
Response.Write "<p>Og fylder " & f.Size & " bytes"
%>
er ganske udmærket. Men er det muligt i filespec = Server.Mappath("/tutorials/asp/lektion14.asp") at indsætte noget i stil med "filex *.jpg" så alle filer i det aktuelle directory (som filex finder) vises?
Avatar billede willi Nybegynder
21. marts 2005 - 22:53 #1
Nå. Så vidt jeg kan se er der denne:

<% strPathInfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath(strPathInfo)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files

For Each objFileItem in objFolderContents
    Response.write "<a href="
    Response.Write(objFileItem.Name)
    response.write ">"
    Response.Write(objFileItem.Name & "<br>")
    Response.write "</a>"
Next %>

Så er det bare lige at afgrænse filsøgningen til .jpg
Avatar billede eagleeye Praktikant
21. marts 2005 - 23:00 #2
Nej man kan ikke sætte filter på FSO objektet. Man er nød til at hente alle filerne og så selv lave et filter når man udskriver.

Eks. hvis tillader gif, jpg, jpeg og png filer:

if InStr(1, "gif,jpg,jpeg,png", LCase(objFSO.GetExtensionName(objFileItem.name))) > 0 then
  'udskriv filen
end if
Avatar billede willi Nybegynder
21. marts 2005 - 23:24 #3
Nu er det lidt sent. Men jeg får meddelelsen Et objekt er obligatorisk: ''
InStr er vel heller ikke et objekt?
Avatar billede willi Nybegynder
22. marts 2005 - 10:36 #4
Nå... Har  fundet ud af det. Havde sat InStr ind for tidligt (før objFileItem.name). Det fungere fint nu. Sender du et svar...
Avatar billede willi Nybegynder
22. marts 2005 - 11:01 #5
Men der er så stadig tilbage at få løst problemet med at få udskrevet både filnavne og billeder.
Response.write "<a href="
    Response.Write(objFileItem.Name)
    Response.Write <img src="objFileItem.name">
    response.write ">"
    Response.Write(objFileItem.Name & "<br>")
    Response.write "</a>"
Men det høre nok til et nyt sp.
Avatar billede willi Nybegynder
22. marts 2005 - 21:17 #6
sender du et svar eagleeye
Avatar billede eagleeye Praktikant
22. marts 2005 - 23:43 #7
ok her er et svar :)
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 9 25/06/202622:20 29/06/202621:55
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 går 13:55 Ukendt sender e-mails fra - og til min e-mail adresse Af mort1 i Andet sikkerhed
24/0711:08 Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel
23/0715:10 WINDOWS KOMPABILITET Af snestrup2000 i Windows
22/0720:19 DVB T2 tuner med optagefunktion Af ErikHg i Andet hardware
20/0716:00 Fildeling mellem 2 windows 11 systemer Af knudg i Windows
White papers
Flere white papers »