Foros del Web - Ver Mensaje Individual - Visualizar el contenido de un directorio con ASP

Owen-Bonilla · #6 (**permalink**) 11/05/2002, 15:22

Código:

  

Public Function DisplayFolders()
  Response.Write  &quot;&lt;tr&gt;&lt;td colspan=2 style='background-color:#cfcfcf;'&gt;Nombre del Sub Directorio&lt;/td&gt;&lt;td style='background-color:#cfcfcf;'&gt;Sub Dir Size (Bytes)&lt;/td&gt;&lt;/tr&gt;&quot;&amp; vbCrLf
  MySubNum = 0
  For Each Folder in MyFiles.SubFolders
   Dim MyCurrentSub, MySubSize, MySubName
   Set MyCurrentSub = MyFSO.GetFolder(Folder)
   MySubNum = MySubNum+1
   MySubSize = MyCurrentSub.Size
   MySubName = MyCurrentSub.Name
   MyDirURL = MySelf &amp;&quot;?MyPhysPath=&quot;&amp; MyPhysPath &amp; MySubName
   Response.Write &quot;&lt;tr&gt;&lt;td colspan=2&gt;&lt;img src=folder.gif border=0 align=absolutemiddle&gt;&amp;nbsp;&lt;a href='&quot;&amp; MyDirURL &amp;&quot;'&gt;&quot;&amp; MySubName &amp;&quot;&lt;/a&gt;&lt;/td&gt;&lt;td&gt;&quot;&amp; MySubSize &amp;&quot;&lt;/td&gt;&lt;/tr&gt;&quot;&amp; vbCrLf
   Set MyCurrentSub = Nothing
  Next
 End Function
 
 Public Function DisplayFiles()
  Response.Write  &quot;&lt;tr&gt;&lt;td style='background-color:#cfcfcf;'&gt;Nombre Archivo&lt;/td&gt;&lt;td style='background-color:#cfcfcf;'&gt;Tipo de Archivo&lt;/td&gt;&lt;td style='background-color:#cfcfcf;'&gt;Tamaño del Archivo (Bytes)&lt;/td&gt;&lt;/tr&gt;&quot;&amp; vbCrLf
  MyFileNum=0
  For Each File in MyFiles.Files
   Dim MyCurrentName, MyFileNum, MyFileSize, MyFileName
   Set MyCurrentName = MyFSO.GetFile(File)
   MyFileNum = MyFileNum+1
   MyFileSize = MyCurrentName.Size
   MyFileName = MyCurrentName.Name
   MyFileType = MyCurrentName.Type
   MyFileURL = Replace(MyPhysPath, MyRootPath, &quot;/&quot;)
   MyFileURL = Replace(MyFileURL, &quot;\&quot;, &quot;/&quot;)
   MyFileURL = MyFileURL &amp; MyFileName