Använder en select case-sats för att bestämma vilken icon filen skall visas med. Vill att en html-filer får samma icon som htm-filer. Varför fungerar det inte med kommatecken?

Select Case strIcon

Case ".doc"
strIcon = "Icon_small_doc.gif"

Case ".txt"
strIcon = "Icon_small_txt.gif"

Case ".htm", ".html"
strIcon = "Icon_small_htm.gif"

Case Else
strIcon = "Icon_small_file.gif"

End Select

Vad får du för felmeddelande? O vilken rad klagar den på?

//Susanne

Jag får inget felmeddelande, däremot associeras en html-fil med fel icon, d.v.s. case else-iconen. Visst skulle jag kunna köra med nedanstående rader, men då har jag ju frångått problemet.

Select Case strIcon

Case ".doc"
strIcon = "Icon_small_doc.gif"

Case ".txt"
strIcon = "Icon_small_txt.gif"

Case ".htm"
strIcon = "Icon_small_htm.gif"

Case ".html"
strIcon = "Icon_small_htm.gif"

Case Else
strIcon = "Icon_small_file.gif"

End Select

Var det inte att frångå problemet som du ville då?? :-)

//Susanne

Skicka lite mer kod:

Använder du Right("filensnamn.html",4) för att klippa sufixet?

I så fall
Case ".htm", "html"

/Janne

Jag föreslår att du kapslar din kod till en funktion:
<code>
Function GetIcon(FileName)
Dim Suffix
Suffix = Mid(FileName, InStrRev(FileName, ".") + 1)
Select Case LCase(Suffix)
Case "doc"
GetIcon = "Icon_small_doc.gif"
Case "txt"
GetIcon = "Icon_small_txt.gif"
Case "htm", "html"
GetIcon = "Icon_small_htm.gif"
Case Else
GetIcon = "Icon_small_file.gif"
End Select
End Function
</code>