急用，vb6.0编程中获取一个电脑里的文件的路径名，将它让在text中，在不打开文件的情况下。

新建工程，在窗体上添加一个DRIVELISTBOX，一个DIRLISTBOX，一个FILELISTBOX，一个COMM按钮，一个TEXTBOX。

写入代码：

Dim path As String

Private Sub Drive1_Change()

  '当选择一个新驱动器时,将驱动器列表中选中的当前驱动器,赋给目录列表的路径

    Dir1.path = Drive1.Drive

    End Sub

Private Sub Dir1_Change()

  '将文件列表框的路径值,设置为目录列表框所选中的路径值

    File1.path = Dir1.path

End Sub

Private Sub Command1_Click()

path = File1.path & "\" & File1.FileName

Text1 = path

End Sub

Set aa = CreateObject("Scripting.FileSystemObject")
Text1.Text = aa.GetParentFolderName("C:\WINDOWS\regedit.exe")

Text1.Text="那个路径名"