怎么用VB记录当前打开的文件夹路径?

写一个VB程序，点击command1后就在文本框显示当前电脑所打开的所有文件夹的路径，如现在打开了D盘下的aaa文件夹，又打开了E盘bbb文件夹下的ccc文件夹，则记录:
D:\aaa
E:\bbb\ccc
请问要怎么写呀？大家帮忙下，谢谢！
好的~~~

我来回答吧
哈哈~~
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
Dim S As String

S = String(80, 0)
Call GetWindowText(hwnd, S, 80)
S = Left(S, InStr(S, Chr(0)) - 1)

If Len(S) > 0 Then Form1.List1.AddItem S

EnumWindowsProc = True
End Function

窗体代码~如下
Private Sub Command1_Click()
List1.Clear
EnumWindows AddressOf EnumWindowsProc, 0&
For i = 0 To List1.ListCount - 1
a = Dir$(List1.List(i), vbDirectory)
If a = "" Then
Else
Text1 = Text1 & List1.List(i) & vbCrLf
End If
Next i
End Sub

Private Sub Form_Load()