Rekursivt filsystem

tja.. du kan få det vist f.eks ligesom localhost viser filer og mapper..

hvis det er det du mener :)

-- xs

er det noget ala det her du mener?:

<HTML>
<HEAD>
<TITLE>Chapter 10 Example - Display Directory</TITLE>
</HEAD>
<BODY>

<%
  Dim strPathInfo, strPhysicalPath
  strPathInfo = Request.ServerVariables("PATH_INFO")
  strPhysicalPath = Server.MapPath(strPathInfo)

  Dim objFSO, objFile, objFileItem, objFolder, objFolderContents
  Set objFSO = CreateObject("Scripting.FileSystemObject")

  Set objFile = objFSO.GetFile(strPhysicalPath)
  Set objFolder = objFile.ParentFolder
  Set objFolderContents = objFolder.Files
%>

<TABLE cellpadding=5>
<TR align=center>
  <TH align=left>File Name</TH>
  <TH>Type</TH>
  <TH>File Size</TH>
  <TH>Last Modified</TH>
</TR>

<%
  For Each objFileItem in objFolderContents
%>

    <TR>
      <TD align=left>
      <A HREF="<%= objFileItem.Name %>">
      <FONT FACE="Verdana" SIZE="3">
      <%= objFileItem.Name %></FONT>
      </A>
      </TD>
      <TD align=right>
      <FONT FACE="Tahoma" SIZE="2" COLOR="DarkGreen">
      <%= objFileItem.type %></FONT>
      </TD>
      <TD align=right>
      <FONT FACE="Tahoma" SIZE="2" COLOR="DarkGreen">
      <%= objFileItem.size %></FONT>
      </TD>
      <TD align=right>
      <FONT FACE="Tahoma" SIZE="2" COLOR="DarkGreen">
      <%= objFileItem.DateLastModified %></FONT>
      </TD>
    </TR>

<%
  Next
%>

</TABLE>
</BODY>
</HTML>


-- xs

det har jeg fat....den skal kunne vise mapper og filer. - klikke man på en mappe åbnes den, og man får vist indholdet af filer og mapper i den o.s.v.

Anne

Du kan også bare tage et kig på ASPADMIN på www.aspadmin.dk

JAAAAA - det var lige noget....TAK

Anne

Det var til netsrac :o)

jamen i så fald skal jeg da ikke have pointene..

skal jeg lige oprette et spørgsmål til dig?


-- xs

copeland >> En fornøjelse at kunne hjælpe :)

Hvordan henter man filsystemet fra en anden server på ens eget netværk:

En asp fil med følgende kode, ligger på \\Server01

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("\\Server02\mappe")

Jeg kan i stifinderen på Server01 browse \\Server02\mappe - men i scriptet får jeg fejlen "Siden kan ikke vises"....?


Anne