RE:leer en un txt el nombre de una carpeta de mis
La verdad es que no te entendi mucho la pregunta, pero para saber el nombre de una carpeta, puedes utilizar una Referencia Microsoft Scripting Runtime. Por ejemplo
Private Sub Command1_Click()
Dim Fso As New Scripting.FileSystemObject
Dim f As Folder
On Error Resume Next
For Each f In Fso.GetFolder("c:\").SubFolders
List1.AddItem f.Name
Next f
End Sub
este ejemplo recorre todos los directorios de la raiz del sistema y agrega sus nombres a un listbox