Menu Arbol + Php

[Fabian olmos]

Hola a todos, tengo un grave problema anteriormente yo tenia un página es ASP dicha página tiene un código javascript con asp que dibujaba un menú tipo árbol del directorio que yo le especificaba, ahora lo que sucede es lo siguiente:que es que quisiera pasar dicho código que está en ASP a PHP para ver si logro poner a funcionar el menú tal y como funcionaba anteriormente pero no lo logro, para ver si me pueden ayudar. aquí el código.

Código PHP:

  <% 
   Sub GetDisciplines() 
      Dim fso           ' as FyleSystemObject 
      Dim contador      ' as Integer          '  
      Dim folder        ' as Folder           ' carpeta disciplinas 
      Dim subfolder     ' as Folder           ' carpeta de la disciplina (p.e Atletismo) 
      Dim subfolderplus ' as Folder           ' carpeta de las pruebas (p.e Atletismo/80 mts) 
 
      Set fso = Server.CreateObject("Scripting.FileSystemObject") 
      Dim script ' as String 
      contador = 0 
 
      If fso.FolderExists(Server.MapPath("disciplinas")) Then 
         Set folder = fso.GetFolder(Server.MapPath("disciplinas")) 
         If folder.SubFolders.Count = 0 Then 
            script = script & "bError = true;" 
            script = script & "sError = '<B>¡No se encontraron disciplinas en el directorio 'disciplinas' del servidor!<B><BR><HR>Consulte el directorio en el mismo';" 
         End If 
 
         For Each subfolder in folder.SubFolders ' pe. disciplinas/Atletismo 
'Stop 
            Dim pruebas ' as Folder 
            Dim sTemp   ' as String 
             
             
            If subfolder.SubFolders.Count > 0 Then 
               'Set pruebas = fso.GetFolder(Server.MapPath(sTemp)) 
               script = script & "nod = new Node(""disciplinas/" & subfolder.Name & """, true, true, 0, """ & subfolder.Name & """);" 
               script = script & vbNewLine & "tree.push(nod);" & vbNewLine 
               For Each subfolderplus In subfolder.SubFolders ' pe disciplinas/atletismo/100 mts planos 
                  script = script & "nod = new Node(""disciplinas/" & subfolder.Name & "/" & subfolderplus.Name & """, false, true, 1, """ & subfolderplus.Name & """);" 
                  script = script & vbNewLine & "tree.push(nod);" & vbNewLine 
               Next 
               Set pruebas = Nothing 
            Else 
               script = script & "nod = new Node(""disciplinas/" & subfolder.Name & """, false, true, 0, """ & subfolder.Name & """);" 
               script = script & vbNewLine & "tree.push(nod);" & vbNewLine 
            End If 
         Next 
      Else 
         script = script & "bError = true;" 
         script = script & "sError = '<B>¡No se encontraron disciplinas en el servidor!<B><BR>';" 
      End If 
      Response.Write script 
 
      Set fso           = Nothing 
      Set folder        = Nothing 
      Set subfolder     = Nothing 
      Set subfolderplus = Nothing 
   End Sub 
    
   Call GetDisciplines 
%>  
   

graciassss.

[juaniquillo]

Lo mejor es que te olvides de ASP y comiences de cero. Aqui hablo de una clase que te puede ayudar:

http://www.forosdelweb.com/showthrea...ght=breadcrumb

[Fabian olmos]

gracias, pero me dice documento no encontrado.

[juaniquillo]

perdon, debi haber probado el link, jejeje. aqui esta:

http://www.forosdelweb.com/f18/busqueda-menu-404819/