Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Arbol de directorio
 Foro Bloqueado  Tema Bloqueado


Autor Temas
Duilio
Starting Member


21 Posts
Mensajes - 19 May 2003 :  19:51:49  Ver Perfil  Enviar Email
hola amigos mi duda es saber como realizar un arbol en mi pagina ke me muestre un directorio de mi disco duro predeterminado he hecho algo pero este codigo no me funciona aki se los mando y acontinucacion el error ke me sale a ver si me pueden ayudar ok? gracias de antemano


<HTML>
<HEAD>
<TITLE>obout TreeView - Show Folder in Explorer</TITLE>
</HEAD>
<BODY style="font: 8pt verdana;">
Show folder with all subfolders and files (like in Windows Explorer).

<p>
<% Dim sPath, ot, oFSO, sFolderName, i

' Get Folder Path and Folder Name
sPath = Server.MapPath(Request.ServerVariables("Path_INFO"))
Do Until Right(sPath, 1) = "/"
sPath = left(sPath, Len(sPath) - 1)
Loop
i = Len(sPath) - 1
Do Until Mid(sPath, i, 1) = "/"
sFolderName = Mid(sPath, i, Len(sPath) - i)
i = i - 1
Loop

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set ot = Server.CreateObject("obout_asptreeview_pro.tree")

' Populate first node manually.
ot.Add "", "root", "<b style='color:navy;'>" & sFolderName & "</b>", True, "book.gif"
Call AddFolder(sPath, "/" & sFolderName, "root")
ot.SelectedNode_Border = "1px solid #ccddee"
Response.Write ot.HTML ' Write treeview to page.
Set ot = Nothing
Set oFSO = Nothing

Function AddFolder(pth, dpt, parentID)
Dim oF, oFolder, oFile, oSubFolder, oItem, sName
Set oFolder = oFSO.GetFolder(pth)
Set oSubFolder = oFolder.SubFolders
Set oFile = oFolder.Files
For Each oItem In oSubFolder ' Display Subfolders.
ot.Add parentID, "z" & oItem.Name, oItem.Name
Call AddFolder(oItem.Path, dpt & "/" & oItem.Name, "z" & Replace(oItem.Name, " ", "_"))
Next
For Each oF In oFile ' Display Files.
sName = oF.Name
ot.Add parentID, "z" & Replace(sName, " ", "_"), "<a href=" & dpt & "/" & sName & ">" & sName & "</a>", , "page.gif"
Next
End Function
%>
</BODY>
</HTML>

el error es el siguiente:

Show folder with all subfolders and files (like in Windows Explorer).

Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument: 'left'

/Project20/ASP Page2.asp, line 14

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar