Menu Arbol + Php 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
%>
