en lille opgave med FileSystemObject
Hej er ved at leje lidt med Scripting.FileSystemObject til en hjemmeside, og skal lave det sådan at side går ind i mappe Billeder og finder alle de mapper der er. og smider dem op som et links og det har jeg så det har jeg så funde ud af. så kommer det næste lille problem som er at når der så er undermapper i dem som jeg så skal have smit op. og det imges der så er skal den smide op sådan at man kan se dem og ikke bare tekset..Håber der er folk der vil hjælpe.
Soucescode lige nu.
ASP-fortolker fra Sun Microsystems. (desvære)
sub ListFolderContents(path)
On Error Resume Next
dim fs, folder, file, item, url
set fs = CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder(path)
'Display the target folder and info.
if folder.name <> "Billeder" and folder.name <> "d" and mid(folder.name,1,1) <> "_" Then
Dline = folder.Name
DLine = Replace(Dline,"-ae-","æ")
Dline = Replace(Dline,"-AE-","Æ")
Dline = Replace(Dline,"-o-","ø")
Dline = Replace(Dline,"-O-","Ø")
Dline = Replace(Dline,"-a-","å")
Dline = Replace(Dline,"-A-","Å")
Response.Write "<a href='?n=" & folder.Name & "' target=main title=Start>" & Dline & "</A> "
end if
for each item in folder.SubFolders
ListFolderContents(item.Path)
next
end sub
response.write "<center>"
call listfoldercontents(server.mappath("\Billeder"))
response.write "</center>"
%>
<br>
<%
if Request.QueryString("n") <> "" THEN
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath("/Billeder/" & Request.QueryString("n")))
Set fc = f.Files
For Each fil in fc
'tjek filen er et billede ved at kigge på extension
if inStr(1,"gif,jpg,jpeg,bmp",LCase(fs.GetExtensionName(fil.name))) > 0 then
'Vis billedet
Response.write fil.name & "<BR>"
end if
next
end if
%>
