Looping through foldernames

Hi,


I'm trying to list all the folders in a directory, so I just get a list of folders. It doesnt quite work at the moment, can anyone please help?



For Each strFolder As String In _
         My.Computer.FileSystem.GetDirectories("xx\xx\xx\xx\")
            'Add the item to the list
            mydata &= strFolder & "<br>"
        
            
            
            For Each fname As String In strFolder
                mydata &= fname ...