---
title: "Lista filer med punkt i namnet"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/100912-lista-filer-med-punkt-i-namnet"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "evesve"
published: "2004-04-05T06:55:59.000Z"
updated: "2004-04-05T10:48:19.000Z"
replies: 1
views: 299
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/100912-lista-filer-med-punkt-i-namnet"
---

# Lista filer med punkt i namnet

## #1 — evesve, 2004-04-05T06:55Z

Hej!
Jag har en inc-fil för att 
1\. lista filer i ett bibliotek som länkar (utan att visa filändelser)
2\. visa en icon framför namnet som visar filtyp.

fungerar bra så långt.

Jag har 2 problem med detta.
1\.Det blir felmeddelande om det inte finns någon fil i biblioteket.
2\. Det blir fel namn och länkar om det finns en punkt i filnamnet

Jag söker alltså hjälp till mina problem:

```
<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set fsf = fso.GetFolder(folderspec)
Set fsfs = fsf.Files

'***** skapar ett recordset för dom olika mapparna *****
set disc_RS = Server.CreateObject("ADODB.Recordset")
disc_RS.Fields.Append "filnamn", adVariant, 50
disc_RS.Fields.Append "sortering", adinteger, 3
disc_RS.open

For each fil in fsfs
disc_RS.AddNew
disc_RS("filnamn") = fil.name
disc_RS("sortering") = ASC(Lcase(fil.name))
disc_RS.UpDate
Next
%>
<table width=300 cellspacing=0 border="0" bgcolor="#c0c0c0">
<%
disc_RS.Sort = "sortering asc"
disc_RS.MoveFirst

Do while Not disc_RS.EOF
a = a+1
%>
<%
'''''''''''''''''''''''''för att få bort filändelserna''''''''''
str = disc_RS("filnamn")
filet = left(str,instr(str,".") -1)
'response.write filet
'''''''''''''''''''''''''för att få bort filändelserna slut''''''''''
'''''''''''''''''''''''''för att hitta icon-namnen''''''''''
filetr = mid(str,instr(str,".") +1)
'response.write filet
'''''''''''''''''''''''''för att hitta icon-namnen slut''''''''''
%>
<TABLE border="0" cellspacing=0 cellpadding=0 valigm="top" bgcolor="#FFFFCC">
<tr>
<td width=2 bgcolor="#FFFFCC"><img src="../../00_Hemsida/<%=filetr%>.gif" height="20"></TD>
<TD bgcolor="#FFFFCC" width="100%"><%Response.Write "<b><a href="""& sokvagen & disc_RS("filnamn") &""" &target='_blank' class='fet2'>&nbsp;&nbsp;-&nbsp;"& filet &"</a><br>"&vbCrLf%>
</TD>
</tr>
<%
disc_RS.MoveNext
Loop
disc_RS.close
Set disc_RS = Nothing
Set fso = Nothing
Set fsf = Nothing
Set fsfs = nothing
%>
</table>
```

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

## #2 — evesve, 2004-04-05T10:48Z

Hittade lösning själv på problem2 (punkterna)

```
<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set fsf = fso.GetFolder(folderspec)
Set fsfs = fsf.Files

'***** skapar ett recordset för dom olika mapparna *****
set disc_RS = Server.CreateObject("ADODB.Recordset")
disc_RS.Fields.Append "filnamn", adVariant, 50
disc_RS.Fields.Append "sortering", adinteger, 3
disc_RS.open

For each fil in fsfs
disc_RS.AddNew
disc_RS("filnamn") = fil.name
disc_RS("sortering") = ASC(Lcase(fil.name))
disc_RS.UpDate
Next
%>
<table width=300 cellspacing=0 border="0" bgcolor="#c0c0c0">
<%
disc_RS.Sort = "sortering asc"
disc_RS.MoveFirst

Do while Not disc_RS.EOF
a = a+1
%>
<%
'''''''''''''''''''''''''för att hitta icon-namnen''''''''''
str = disc_RS("filnamn")
str2 = right(Trim(str), 6)
str3 = mid(str2,instr(str2,".") +1)
''''''''''''''''''''''''''för att hitta icon-namnen slut''''''''''

''''''''''''''''''''''''''för att få bort filändelserna''''''''''
filet = left(str,instr(str,"."&str3) -1)
'''''''''''''''''''''''''för att få bort filändelserna slut''''''''''
%>
<TABLE border="0" cellspacing=0 cellpadding=0 valigm="top" bgcolor="#FFFFCC">
<tr>
<td width=2 bgcolor="#FFFFCC"><img src="../../00_Hemsida/<%=str3%>.gif" height="20"></TD>
<TD bgcolor="#FFFFCC" width="100%"><%Response.Write "<b><a href="""& sokvagen & disc_RS("filnamn") &""" &target='_blank' class='fet2'>&nbsp;&nbsp;-&nbsp;"& filet &"</a><br>"&vbCrLf%>
</TD>
</tr>
<%
disc_RS.MoveNext
Loop
disc_RS.close
Set disc_RS = Nothing
Set fso = Nothing
Set fsf = Nothing
Set fsfs = nothing
%>
</table>
```

 

Problem 1 kvarstår dock.
Alltså hur jag slipper felmeddelande om biblioteket är tomt.
Någon?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/100912-lista-filer-med-punkt-i-namnet