Søg
Avatar billede goose Nybegynder
21. september 2003 - 10:40 Der er 5 kommentarer og
1 løsning

Vis kun bestemte filtyper med FileSystemObject

Jeg vil gerne vise en oversigt over filer der ligger i en given mappe, men jeg vil kun vise filer af typen jpg, gif og swf, hvordan gør jeg det ?

Jeg bruger lige nu følgende som viser alle filtyper:

strHTML = ""

set picFSO = server.CreateObject ("Scripting.FileSystemObject")
set picMainFolder = picFSO.GetFolder(server.MapPath(imgFolder))
       
katid = CStr(request("katid"))
if katid="" then katid = picMainFolder.path

set picTempFSO = server.CreateObject ("Scripting.FileSystemObject")
set picTempFolder = picTempFSO.GetFolder (katid)
set picTempFiles = picTempFolder.files

strHTML = strHTML & "<table border=0 cellpadding=3 cellspacing=0 width=240>"
for each picTempFile in picTempFiles

picTempFile.name & "<br>"
next

/Goose
Avatar billede goose Nybegynder
21. september 2003 - 10:42 #1
- jeg tror det må være noget i stil med:
for each picTempFile in picTempFiles where picTempFile.type = "jpg" or picTempFile.type = "gif" or picTempFile.type = "swf"

- men det virker ikke

/Goose
Avatar billede mm12010 Nybegynder
22. september 2003 - 10:21 #2
du skal bruge GetExtensionName

http://www.google.com/search?sourceid=navclient&hl=da&ie=UTF-8&oe=UTF-8&q=GetExtensionName
Avatar billede goose Nybegynder
22. september 2003 - 10:49 #3
Ja så får jeg udskrevet filtyperne, men jeg vil jo kun have listet bestemte filtyper i min liste, hvordan i alverden får jeg det flettet ind ?

/Goose
Avatar billede mm12010 Nybegynder
22. september 2003 - 10:57 #4
prøv sådan:

for each picTempFile in picTempFiles
  if picTempFSO.GetExtensionName(picTempFile) = "jpg" or picTempFSO.GetExtensionName(picTempFile) = "gif" or picTempFSO.GetExtensionName(picTempFile) = "swf"
Avatar billede goose Nybegynder
22. september 2003 - 11:00 #5
Fik det løst på en anden måde:

for each picTempFile in picTempFiles
If (right(picTempFile.name, 3) = "jpg" OR right(picTempFile.name, 3) = "gif") then
picTempFile.name & "<br>"
end if
next

Jeg har ikke forsøgt din løsning, men du får alligevel point fordi du forsøgte.

/goose
Avatar billede mm12010 Nybegynder
22. september 2003 - 11:13 #6
takker :o)
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
42 min siden VB script Af Jenshentze i Word
I dag 11:21 Popup ved opstart Af mort1 i Windows
04/0918:50 Slet lokal konto Af ErikHg i Windows
04/0916:05 Ændre tal i en celle Af xvid i Excel
04/0913:47 Dette er ikke en kommerciel session i Windows 11 Af eksmojo i Windows
White papers
Flere white papers »