ASP.NET - Ayuda urgente XLM y Treeview

   
Vista:

Ayuda urgente XLM y Treeview

Publicado por Haf (138 intervenciones) el 28/09/2007 08:43:12
Saludos valiosisimos amigos del foro:

Por favor, necesito leer el directorio del disco de una capeta en específico y crear un XMl con la estructura de ese directorio ( Subdirectorios y archivos); y que a partir de ese XMl ( ya que pasa a través de un web service) llenar un Treeview.
Ya lo he intentado de varias formas y ha funcionado a medias
El mayor problema lo he tendido al tratar de crear el XML.

Necesito su ayuda.

Muchas Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ya lo resolví. Aqui va el código

Publicado por Haf (138 intervenciones) el 01/10/2007 09:49:42
El llamado :
Dim valor As String = LeeDirs("aqui va la ruta por defecto a mostrar", 0)


Private Function LeeDirs(ByVal TemDir As String, ByVal Position As Integer) As String
Dim dirs As String() = Directory.GetDirectories(TemDir)
Dim dir As String = ""
Dim TemStr As String = ""
Dim Ret As String = ""
Dim NodeName As String = ""
NodeName = Mid(TemDir, InStrRev(TemDir, "\") + 1)
If Position = 0 Then
TemStr = "<Directorio>" & vbCrLf
Else
TemStr += Space(5 * Position) & "<TreeNode text=" & Chr(34) & Svr.HtmlEncode(NodeName) & Chr(34) & " Value=" & Chr(34) & Svr.HtmlEncode(NodeName) & Chr(34) & ">" & vbCrLf
End If
For Each dir In dirs
Ret = ReadDirs(dir, Position + 1)
If Ret = "X" Then
Return "X"
Else
TemStr += Ret
End If
If Position > 0 Then
TemStr += Space(10 * Position) & "</TreeNode>" & vbCrLf
Else
TemStr += Space(5) & "</TreeNode>" & vbCrLf ' fin del nodo de cada Directorio Principal
End If
Next
Dim di As New DirectoryInfo(TemDir)
Dim fi As FileInfo() = di.GetFiles()
Dim fiTemp As FileInfo
If fi.Length > 0 Then
For Each fiTemp In fi
If InStr(fiTemp.Name, " ") > 0 Then
Return "X"
End If
If InStr(UCase(fiTemp.Name), " .doc") > 0 Then
Return "X"
End If
If fiTemp.Length = 0 Then
Return "X"
End If
'AQUI VA EL TEXTO
TemStr += Space$(5 * (Position + 3)) & "<TreeNode text=" & Chr(34) & Svr.HtmlEncode(Left(fiTemp.Name, Len(fiTemp.Name) - 4)) & Chr(34) & " Value=" & Chr(34) & Svr.HtmlEncode(Left(fiTemp.Name, Len(fiTemp.Name) - 4)) & Chr(34) & "></TreeNode>" & vbCrLf
Next fiTemp
End If
If Position = 0 Then
TemStr += "</Directorio>"
End If
Return TemStr
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ya lo resolví. Aqui va el código

Publicado por Chema (1 intervención) el 09/01/2008 13:18:47
Hola, hay algo ke no me cuadra, has tenido que importar alguna libreria o algo especial? Es que a mi me falla y no me reconoce ni la expresion:

ReadDirs
Svr

Yo he añadido System.IO

Un saludo y muchas gracias!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar