Parse FTP List Reply

[señorbadger]

Hi i connected to my FTP server and have recived a directory listing like below...

<< 125 File status okay; about to open data connection.

drwx------ 1 Owner Group 512 Mar 25 20:15 badgerb
-rwx------ 1 Owner Group 3943 Mar 01 22:57 bc.asp
drwx------ 1 Owner Group 512 Apr 10 07:57 BCDB
-rwx------ 1 Owner Group 1710 Mar 01 22:57 bcprocess.asp
drwx------ 1 Owner Group 512 Jan 19 15:10 cgi-bin
-rwx------ 1 Owner Group 1051 Mar 06 10:02 compact.asp
-rwx------ 1 Owner Group 205 Jan 20 09:01 connstr.asp
-rwx------ 1 Owner Group 10846 Jan 20 08:59 contact.asp


<< 226 Closing data connection.

how can i parse each file into a UDT ?

and all the Directorys into an array for placing into a treeview ?

thanks people

Sam Lad

[TheVader]

You can seperate the information with string manipulation. In this code I exclude the names and type (directory/file). Hope it's useful.

Dim strList(3) As String
Dim i As Integer
 
strList(0) = "drwx------ 1 Owner Group 512 Mar 25 20:15 badgerb"
strList(1) = "-rwx------ 1 Owner Group 3943 Mar 01 22:57 bc.asp"
strList(2) = "drwx------ 1 Owner Group 512 Apr 10 07:57 BCDB"
 
For i = 0 To UBound(strList) - 1
    If Left$(strList(i), 1) = "d" Then
        'directory
        MsgBox "Directory: " & Right(strList(i), Len(strList(i)) - InStrRev(strList(i), " "))
    Else
        'file
        MsgBox "File: " & Right(strList(i), Len(strList(i)) - InStrRev(strList(i), " "))
    End If
Next i

[señorbadger]

true yeah i got a udt populated but i think with tweaking i will have it right once i have i will post for future reference

thanks man