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 %>
<% 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:
<% 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
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.
Synes godt om
Ny brugerNybegynder
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.