Hvordan laver...

Denne kode kan vise alle filer i mappen \test - kan det hjælpe:

<html>
<head>
</head>

<% ' ASP
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set f = objFSO.getFolder(Server.MapPath("\test"))
%>

<table width="90%" align="center">
<tr><td align="left" width='30%'><b>Række 1</b></font></td>
  <td width='30%'><b>Række 2</b></td>
  <td width='30%'><b>Række 3</b></td>
</tr>
<% ' ASP
Cnt = 1
For Each Item in f.Files
  if Cnt = 1 then
    Response.Write("<tr>" & vbCrLf)
  end if
  Response.Write("<td align='left'>" & Item.Name & "</td>" & vbCrLf)
  if Cnt = 3 then
    Response.Write("</tr>" & vbCrLf)
  end if
  Cnt = Cnt + 1
  if Cnt = 4 then
    Cnt = 1
  end if
Next %>

</table>

</body>
</html>

<%
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile("c:\test.asp")
Response.Write("The size of test.asp is: ")
Response.Write(f.Size & " bytes.")
set f=nothing
set fs=nothing
%>Output:

The size of test.asp is: 10556 bytes.

Her er koden der kan vise det hele:

<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

sub VisFiler(strMappe)
  Dim f
  Set f = objFSO.getFolder(strMappe)
  ' Vis undermapper
  For Each Item in f.SubFolders
'    Response.Write("Mappe: " & Item.Name & "<br>")
    VisFiler(Item)
  Next
  ' Vis filer
  Response.Write("<b>Filer i mappen: " & strMappe & "</b><br>")
  For Each Item in f.Files
    Response.Write(Item.Name & " Size: " & item.Size & " bytes.<br>")
  Next
end sub
 
VisFiler(Server.MapPath("\"))
%>

Hvad er koden, så vis jeg vil har vist, alle undermappernes navne?

Så skal denn linie ændres:
    Response.Write(Item.Name & " Size: " & item.Size & " bytes.<br>")
til:
    Response.Write(strMappe & Item.Name & " Size: " & item.Size & " bytes.<br>")

således at strMappe udskrives sammen med filnavnet.