01. juni 2007 - 12:28Der er
4 kommentarer og 1 løsning
hjælp med FSO objekt
jeg bruger nedenstående kode til ikke at få vist asp filer i bibliotek - jeg vil gerne ha tilføjet css og jpg filer????
For Each g_oFile In g_oFolder.Files if right(g_oFile.name,3) = "asp" then Response.write "" else Response.Write "<tr><td><font color='#999999'></font><a href=""" & g_oFile.name & """ target=_blank>" & left(g_oFile.name,(len(g_oFile.name)-4)) & "</a></td></strong></tr>" end if Next
Du kan dog spare et par linjer, hvis du skriver det sådan her: -------------------------------------------------------------- For Each g_oFile In g_oFolder.Files if right(g_oFile.name,3) <> "asp" or right(g_oFile.name,3) <> "css" or right(g_oFile.name,3) <> "jpg" then Response.Write "<tr><td><font color='#999999'></font><a href=""" & g_oFile.name & """ target=_blank>" & left(g_oFile.name,(len(g_oFile.name)-4)) & "</a></td></strong></tr>" end if Next -------------------------------------------------------------- Det betyder bare "hvis ikke, filen er asp, css eller jpg, så skriv den. Så sparer du helt den første "if" væk.
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.