Avatar billede lugicy Nybegynder
25. april 2002 - 14:46 Der er 3 kommentarer og
2 løsninger

Hvordan laver...

...jeg, en liste over alle filer på min server:
Hvad de hedder, hvor de ligger og hvor meget de fylder???
Avatar billede coltau Juniormester
25. april 2002 - 14:53 #1
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>
Avatar billede askhoej Praktikant
25. april 2002 - 15:09 #2
<%
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.
Avatar billede coltau Juniormester
25. april 2002 - 15:31 #3
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("\"))
%>
Avatar billede lugicy Nybegynder
25. april 2002 - 16:05 #4
Hvad er koden, så vis jeg vil har vist, alle undermappernes navne?
Avatar billede coltau Juniormester
25. april 2002 - 16:44 #5
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.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester