VBScript

Get the Entire Remote Directory Tree as XML

Demonstrates the Chilkat Ftp2.DirTreeXml method, which returns an XML representation of the complete remote directory tree rooted at the current remote directory. It takes no arguments; the result uses a <dirTree> root with nested <dir> and <file> elements.

Tip: Code to parse the returned XML can be generated at Chilkat Tools.

Background: This walks the whole subtree in one call and hands back its structure as nested XML — a convenient way to snapshot or audit an entire remote hierarchy without writing your own recursion. Be mindful that it visits every subdirectory, so on a large or deep tree it can be slow and produce a great deal of XML; scope it by changing into the specific directory you care about first.

Chilkat VBScript Downloads

Download Chilkat for VBScript

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

'  Demonstrates the Ftp2.DirTreeXml method, which returns an XML representation of the complete
'  remote directory tree rooted at the current remote directory.  It takes no arguments.

set ftp = CreateObject("Chilkat.Ftp2")

ftp.Hostname = "ftp.example.com"
ftp.Username = "myFtpLogin"

'  Normally you would not hard-code the password in source.  You should instead obtain it
'  from an interactive prompt, environment variable, or a secrets vault.
ftp.Password = "myPassword"

success = ftp.Connect()
If (success = 0) Then
    outFile.WriteLine(ftp.LastErrorText)
    WScript.Quit
End If

success = ftp.ChangeRemoteDir("public_html")
If (success = 0) Then
    outFile.WriteLine(ftp.LastErrorText)
    WScript.Quit
End If

'  The result uses a <dirTree> root with nested <dir> and <file> elements describing the whole
'  subtree.  This can be a large amount of data for a deep tree.
treeXml = ftp.DirTreeXml()
If (ftp.LastMethodSuccess = 0) Then
    outFile.WriteLine(ftp.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine(treeXml)

success = ftp.Disconnect()
If (success = 0) Then
    outFile.WriteLine(ftp.LastErrorText)
    WScript.Quit
End If


outFile.Close