Lista filer med punkt i namnet

evesveMedlem sedan sep. 2001163 inlägg

Frågan5 apr. 2004 06:55#1

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>

evesveMedlem sedan sep. 2001163 inlägg

5 apr. 2004 10:48#2

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?