---
title: "Lista filer och MAPPAR"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/48285-lista-filer-och-mappar"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "oskob"
published: "2002-07-20T17:06:28.000Z"
updated: "2002-07-21T13:32:20.000Z"
replies: 13
views: 367
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/48285-lista-filer-och-mappar"
---

# Lista filer och MAPPAR

## #1 — oskob, 2002-07-20T17:06Z

Tjena!
Jag har enliten grej som listar alla filer i en mapp, men hjur listar jag mappar?

Nuvarande kod:

\<%
Dim objFSO, objFile
Dim sMapPath, objFolder

Set objFSO = CreateObject("Scripting.FileSystemObject")

sMapPath = server.mapPath("./.")

Set objFolder = objFSO.GetFolder(sMapPath)
For Each objFile in objFolder.Files

If objFile.Name = ID Then
Response.Write "\<font color='#ff0000'\> x \</font\>"
Else
Response.Write "»"
End If

Response.Write "\<a href=default.asp?id=" & objFile.Name & "\>"
Response.write objFile.Name
Response.write "\</a\>\<br\>"

Next

Set objFSO = Nothing
Set objFolder = Nothing

%\>

Edit:
ni kanske undrar vad ID är:
ID = Request.Querystring("id")

ja ni fattar säkert

Permalänk: https://www.webforum.nu/p/48285

## #2 — oskob, 2002-07-20T17:16Z

En sak till:
Hur gör jag när jag vill markera de 3 sista bokstäverna i en sträng och kolla så att dom är jpg eller nått?

Permalänk: https://www.webforum.nu/p/724587

## #3 — solbulle, 2002-07-20T17:28Z

1\.

For each Item In objFolder.SubFolders 
Response.write Item.Name 
Next 

2\.

Function filetype(filename)
  filetype= lcase(left(filename,instr(filename,".") -1))
End Function

Permalänk: https://www.webforum.nu/p/724590

## #4 — oskob, 2002-07-20T17:34Z

tackar och bockar!

Permalänk: https://www.webforum.nu/p/724592

## #5 — oskob, 2002-07-20T17:37Z

hur gör jag med detta?

Function filetype(filename) 
filetype= lcase(left(filename,instr(filename,".") -1)) 
End Function

If filetype = "jpg" Then
response.Write "its a bloody picture!"
Else
Response.write "its a bloody.... something-else!!"
End bloody If

Permalänk: https://www.webforum.nu/p/724594

## #6 — solbulle, 2002-07-20T17:56Z

Det är en funktion, så du får sätta in den "fil" du vill kolla i funktionen, typ:

filetype("bild.gif")

Eller kanske göra en ytterligare funktion av det hela:

```
<% 
Dim objFSO, objFile 
Dim sMapPath, objFolder 

Set objFSO = CreateObject("Scripting.FileSystemObject") 

sMapPath = server.mapPath("./.") 

Set objFolder = objFSO.GetFolder(sMapPath) 
For Each objFile in objFolder.Files 

If objFile.Name = ID Then 
Response.Write "<font color='#ff0000'> x </font>" 
Else 
Response.Write "»" 
End If 

Response.Write "<a href=default.asp?id=" & objFile.Name & ">" 
Response.write objFile.Name 
Response.write "</a> " 
Response.write Kommentar(objFile.Name)
Response.write "<br>"
Next 

Set objFSO = Nothing 
Set objFolder = Nothing 

Function filetype(filename) 
filetype= lcase(left(filename,instr(filename,".") -1)) 
End Function 

Function Kommentar(filename)
If filetype(filename) = "jpg" Then 
Kommentar = "its a bloody picture!" 
Else 
Kommentar = "its a bloody.... something-else!!" 
End If
End Function 
%>
```

Permalänk: https://www.webforum.nu/p/727448

## #7 — oskob, 2002-07-21T13:13Z

okej till nästa fråga; hur listar jag mappar?

Permalänk: https://www.webforum.nu/p/727677

## #8 — solbulle, 2002-07-21T13:18Z

Se svaret högre upp.

Permalänk: https://www.webforum.nu/p/727679

## #9 — oskob, 2002-07-21T13:19Z

åh okej

Permalänk: https://www.webforum.nu/p/727680

## #10 — oskob, 2002-07-21T13:20Z

For each Item In objFolder.SubFolders 
Response.write objFolder.Name 
Next 

det där skriver ju mappens namn?
mappen man är i

Permalänk: https://www.webforum.nu/p/727681

## #11 — solbulle, 2002-07-21T13:27Z

Red. Jag svammlar som vanligt:

```
For each Item In objFolder.SubFolders 
Response.write Item.Name 
Next
```

Detta skall fungera!

Permalänk: https://www.webforum.nu/p/727685

## #12 — oskob, 2002-07-21T13:29Z

ja jag har gjort så

men jag söker lite

Permalänk: https://www.webforum.nu/p/727687

## #13 — solbulle, 2002-07-21T13:30Z

Hm... jag kanske snurrar till det lite där kanske... Ska kika jag med.

Permalänk: https://www.webforum.nu/p/727689

## #14 — solbulle, 2002-07-21T13:32Z

For each Item In objFolder.SubFolders 
Response.write Item.Name 
Next 

Så ska det vara!

Permalänk: https://www.webforum.nu/p/727691

---

Tråden på webben: https://www.webforum.nu/amne/asp/48285-lista-filer-och-mappar