<%
' **********************************************************************************
' * Lista filer från katalog
' **********************************************************************************
' *
' * OBS! Filerna kommer i alfabetisk ordning och det kan inte ändras.
' *
' * Filernas namn kan skrivas enligt följande (måste inte):
' * 1. mellanslag skrivs som '_'
' * 2. å -> aa, ä -> ae, ö -> oe, Å -> AA. Ä -> AE, Ö -> OE
' * - exempel: DM_ Landsvaegsgaang__06_Juni.txt
' *
' **********************************************************************************
' *
' * INSTÄLLNINGAR
strKatalog = "2015" ' Katalog där filerna finns, sett från denna fil.
strKatalogenFinnsEj = "Katalogen hittas inte." ' Meddelande ifall katalogen inte hittas.
strIngaFilerFanns = "Inga filer i denna katalog." ' Meddelande ifall katalogen är tom.
' **********************************************************************************
' EDITERA INTE EFTER DENNA RAD
' **********************************************************************************
Dim objFiler, Root, NuFiler
Set objFiler = Server.CreateObject("Scripting.FileSystemObject")
If objFiler.FolderExists(Server.MapPath(strKatalog)) Then
Set Root = objFiler.GetFolder(Server.MapPath(strKatalog))
booFileFound = False
Set NuFiler = Root.Files
For Each Fil In NuFiler
booFileFound = True
VisaNamn = Left(Fil.Name, InStrRev(Fil.Name, ".") - 1) ' Ta bort filändelsen (.htm)
VisaNamn = Replace(VisaNamn, "_", " ") ' Ändra '_' till ' '
VisaNamn = Replace(VisaNamn, "aa", "å") ' aa -> å
VisaNamn = Replace(VisaNamn, "ae", "ä") ' ae -> ä
VisaNamn = Replace(VisaNamn, "oe", "ö") ' oe -> ö
VisaNamn = Replace(VisaNamn, "AA", "Å") ' AA -> Å
VisaNamn = Replace(VisaNamn, "AE", "Ä") ' AE -> Ä
VisaNamn = Replace(VisaNamn, "OE", "Ö")
Response.Write "" & VisaNamn & ""
If Fil.Size > (50 * 1024) Then Response.Write " (" & CInt(Fil.Size/1024) & "kb)"
Response.Write "
"
Next
If Not booFileFound Then Response.Write strIngaFilerFanns
Else
Response.Write strKatalogenFinnsEj
' FÖLJANDE RAD KAN ANVÄNDAS OM KATALOGEN INTE HITTAS
'Response.Write "'" & Server.MapPath(strKatalog) & "'"
End If
%>