udskrivning af tilnavne på filer i en mappe

kig på denne, den bruger jeg selv, og den virker:
http://www.gruvsjo.com/main.asp?cat=script&ucat=asp&viewID=75

Står på svensk, men da det kon er lidt hjælp til koden kan du her få en idé til hvordan du skal gøre det.

Det er filen pic.asp du skal kigge på

Dette script tager også foldere med, men jeg har markeret hvad du skal fjerne hvis du ikke ønsker det:

<%

If request.Querystring("dir") <> "" Then
  dir = "/" & request.Querystring("dir")
else
  dir = "/"
End if


Dim myFso
Set myFso = Server.CreateObject("Scripting.FileSystemObject")

Dim myFolder
Set myFolder = myFso.GetFolder(Server.MapPath(dir))



'Start på den del, der tager foldere

Dim SubFolders
Set SubFolders = myFolder.SubFolders

Response.Write "Foldere i mappen:<br><br>"

For Each folder in subFolders
    Response.Write "<a href='?dir=" & folder.Name & "'>" & folder.Name & "</a><br><br>"
Next

Dim files
Set files = myFolder.Files

'slut på den del, der tager foldere


Response.Write "Filer i mappen:<br><br>"

For Each file in files
    Response.Write "<a href='" & file.Name & "'>" & file.Name & "</a><br>"
    Response.Write "Type: " & file.Type & "<br>"
    Response.Write "Size: " & file.Size & "<br><br>"
Next

Set files = Nothing

'udkommentér, hvis du fjerner folderdelen
Set subFolders = Nothing


Set myFolder = Nothing
Set myFso = Nothing

%>

Jeg fik vist placeret en kommentar lidt forkert. Prøver igen:

<%

If request.Querystring("dir") <> "" Then
  dir = "/" & request.Querystring("dir")
else
  dir = "/"
End if


Dim myFso
Set myFso = Server.CreateObject("Scripting.FileSystemObject")

Dim myFolder
Set myFolder = myFso.GetFolder(Server.MapPath(dir))



'Start på den del, der tager foldere

Dim SubFolders
Set SubFolders = myFolder.SubFolders

Response.Write "Foldere i mappen:<br><br>"

For Each folder in subFolders
    Response.Write "<a href='?dir=" & folder.Name & "'>" & folder.Name & "</a><br><br>"
Next


'slut på den del, der tager foldere


Dim files
Set files = myFolder.Files

Response.Write "Filer i mappen:<br><br>"

For Each file in files
    Response.Write "<a href='" & file.Name & "'>" & file.Name & "</a><br>"
    Response.Write "Type: " & file.Type & "<br>"
    Response.Write "Size: " & file.Size & "<br><br>"
Next

Set files = Nothing

'udkommentér, hvis du fjerner folderdelen
Set subFolders = Nothing


Set myFolder = Nothing
Set myFso = Nothing
%>

det var lige det, tusind tak

laver du lige et svar :-)

der var jeg ikke hurtig nok, det var til /cdc jeg skrev. Jeg brugte følgende:

<%
    Set Mappkoll = Server.CreateObject("Scripting.FileSystemObject")
    Set Mapp = Mappkoll.GetFolder(Server.MapPath("/xls/"))
   
   
    For Each File In Mapp.Files
        name = Mid(LCase(File.Name),bild+1)
        response.write name &"<br>"
    Next
   
    Set Mapp = Nothing
    Set Mappkoll = Nothing
%>

Hvem af os...?
Jeg har vist svaret.
Ellers har jeg igen nu :)

svarer :o)