File object

Du kan bruge den her stump kode:

' Create an instance of the FileSystemObject 
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject") 
' Create Folder Object 
Set MyFolder=MyFileObject.GetFolder(Server.MapPath("images")) 
'Loop trough the files in the folder 
FOR EACH thing in MyFolder.Files 
%>
  udskriv fil her
<% 
NEXT

du kan så trække forskellige varaibler ud af objektet. Her er det brugt til at vise alle billeder i en mappe:

<B>Billeder:</B><BR><BR> 

<table border="1" cellpadding="0" cellspacing="0" width="100%" bordercolor="#000000" bordercolorlight="#000000" bordercolordark="#000000">
  <tr>
    <td width="20%" bgcolor="#527384" align="center"><font color="#FFFFFF">Billede:</font></td>
    <td width="20%" bgcolor="#527384" align="center"><font color="#FFFFFF">Navn:</font></td>
    <td width="20%" bgcolor="#527384" align="center"><font color="#FFFFFF">Størrelse:</font></td>
    <td width="20%" bgcolor="#527384" align="center"><font color="#FFFFFF">Filtype:</font></td>
    <td width="20%" bgcolor="#527384" align="center"><font color="#FFFFFF">Dato for ændring</font></td>
  </tr>
  <% 
' Create an instance of the FileSystemObject 
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject") 
' Create Folder Object 
Set MyFolder=MyFileObject.GetFolder(Server.MapPath("images")) 
'Loop trough the files in the folder 
FOR EACH thing in MyFolder.Files 
%>
  <tr>
    <td width="20%" align="center"><IMG SRC="images/<%=thing.Name%>" align="left"></td>
    <td width="20%" align="center"><A HREF="images/<%=thing.Name%>"><%=thing.Name%></A></td>
    <td width="20%" align="center"><%=thing.Size%>bytes</td>
    <td width="20%" align="center"><%=thing.type%></td>
    <td width="20%" align="center"><%=thing.DateCreated%></td>
  </tr>
  <% 
NEXT 
%>
</table>

Det virker jo! Fantastisk... Tak

Kunne man måske lave sådan at man kunne gå ind under undermapper i mappen images?

så skal du bare ligge filen i alle mapperne, og så linke ti ldem når folk klikke rpå mapperne.

Okay... Ved du hvordan man får Size ud i Kb?

virker det ikke med

<%=thing.type%>

Nej men den skriver vel os bare ud om det er .jpg osv.
Jeg tænker på om man kan få den til at skrive størrelsen i kb og ikke bytes.

<%
kb = (thing.size /1024)
%>

så i ovenstående bliver det :

    <td width="20%" align="center"><%=thing.Size / 1024 &" "%>kb</td>

det var selvfølgelig også Size jeg mente, det gik lidt for stærkt, men den skulle gerne skrive det hele ud i det script jeg har postet 25/03-2005 11:30:29

Nu virker det perfekt. Tak cpufan!

Og så bruge round(), hvis man ikke vil have alle decimalerne med:
<td width="20%" align="center"><%=round(thing.Size / 1024, 2) &" "%>kb</td>

Jeps... Lige præcis.