How would someone go about doing this: look for chr if found search that dir and look for more till done

The best object to use (without using recursion of a sub procedure) would be a "Queue" object.   Basic, values go in one end, and come out the other in the order they origionally entered.   With the right tweaking for your app, the following will work until it exhausts all routes without duplication.

OK, let's assume your list is an array of strings, will call it dirrectoryArray()....

        Dim searchQue As New System.Collections.Queue(dirrectoryArray.GetUpperBound(0) + 1)

        'Fill up the queue with the values (re-write for your app...)
        Dim s As String
        For Each s In dirrectoryArray
            searchQue.Enqueue(s)
        Next

        'Define a string to hold values taken from the queue
        Dim dirToSearch As String
        While searchQue.Count > 0 'Do until the queue is empty
            dirToSearch = CType(searchQue.Dequeue(), String)
            'Test for starting with "d"
            If dirToSearch.StartsWith("d") Then
                'Search this directory here for more directories...
                'Here's where whatever you wrote comes into play...
                'That's why this is abstract...
                If FoundAnotherDirectory Then
                    searchQue.Enqueue(TheFoundDirectory)
                End If
            End If

andrewpk,
im trying to make a file like this but with all the other dirs too

im stuck on how to get the dirs recursivly

http://dragonsoftware.info/Programs/FTP_Filelisting/FileListing4.html

Lacutah,

drwxrw-rw-   1 user     group           0 Oct 18 16:03 DefaultPage
-rw-rw-rw-   1 user     group        3638 Jun  3  2001 favicon.ico
drwxrw-rw-   1 user     group           0 Oct 18 16:03 Gallary
-rw-rw-rw-   1 user     group        3027 Oct 18 01:52 index.htm
-rw-rw-rw-   1 user     group        3383 Oct 18 02:13 index_org.php
drwxrw-rw-   1 user     group           0 Oct 18 16:03 Jayna Tags
-rw-rw-rw-   1 user     group       11603 Oct 18 01:52 ledunder.gif
drwxrw-rw-   1 user     group           0 Nov  3 21:17 TD
drwxrw-rw-   1 user     group           0 Oct 18 16:03 WildcatZips

using that as a test output how would we grab it from a  file
and put into the array defaultpage,gallery,jayna tags,td, and wildcatzips

if you can output to a string the "defaultpage,gallery,jayna tags,td, and wildcatzips"

id be most gratefull
we can then use your code to recursively populate the dirs and continue

thx

Or, if you don't need to open a file, but have the test output (sample above) listed above in a local string (we'll call it "lsOutput") the above will work in leu of the FileStream and StreamReader:

dim sr as new System.IO.StringReader(lsOutput)

im a bit lost here sorry this is all gobly goop to me im a vb6 programmer and a php one...im trying to learn .net using vb2005 express and the docs stink...

would u mind making this make a dirrectoryArray().... like we did above and then make a output file with all listings denoting sepration with "*** new directory ***" as a line

so it recursivly does this same format as the file..and yes id be reading it froma text file as above sample

id like to recurivly list all dirs and all dirs under dirs
for a complete site listing

thx btw
Johnny
aka Pern

i also found a better way to grab the ending directory name

one flaw theres a string that dose not have the : as its a date.. i have used the below code to grab the varibles

    Private Sub TxtParse(ByVal txtSource As String)

        ''
        ' useage
        '   TxtParse("-rw-rw-rw-   1 user     group        3638 Jun  3  2001 favicon.ico")
        '   TextBox1.Text = txtPermissions & "," & txtType & "," & txtUser & "," & txtGroup & "," & txtSize & "," & txtMonth & "," & txtDay & "," & txtTime & "," & txtName
        ''
        Dim args() As String
        Dim iCol As Integer
        If Len(txtSource) > 0 Then
            args = Split(txtSource, " ")
            txtPermissions = args(0)
            iCol = 1
            Do While args(iCol) = ""
                iCol = iCol + 1
            Loop

            txtType = args(iCol)
            iCol = iCol + 1
            Do While args(iCol) = ""
                iCol = iCol + 1
            Loop

            txtUser = args(iCol)
            iCol = iCol + 1
            Do While args(iCol) = ""
                iCol = iCol + 1
            Loop

            txtGroup = args(iCol)
            iCol = iCol + 1
            Do While args(iCol) = ""
                iCol = iCol + 1
            Loop

            txtSize = args(iCol)
            iCol = iCol + 1
            Do While args(iCol) = ""
                iCol = iCol + 1
            Loop

            txtMonth = args(iCol)
            iCol = iCol + 1
            Do While args(iCol) = ""
                iCol = iCol + 1
            Loop

            txtDay = args(iCol)
            iCol = iCol + 1
            Do While args(iCol) = ""
                iCol = iCol + 1
            Loop

            txtTime = args(iCol)
            iCol = iCol + 1
            Do While args(iCol) = ""
                iCol = iCol + 1
            Loop

            txtName = args(iCol)

        End If
    End Sub

useing both methods seams to work well

id be happy to post a link to the full code i have. if that will help with how to do this as i have made that page ive posted

thanks alot for your help
Johnny
aka Pern