FSO组件问题,急,先行谢谢各位了!

Question

我想用FSO组件读取文本文件,但我文件的路径想用文件系统控件选择,代码如下
选择文件
Private Sub Drive1_Change()
  Dir1.Path = Drive1.Drive '使驱动器列表框和目录列表框同步
End Sub
Private Sub Dir1_Change()
  File1.Path = Dir1.Path '使目录列表框和文件列表框同步
End Sub
Private Sub File1_Click()
  Text2.Text = File1.FileName '在文本框中显示文件名
 End Sub
Dim mFSO As New Scripting.FileSystemObject
    Dim TRM As Scripting.TextStream
    Dim mFile As String
    mFile = "  "
   我想把选择的文件的路径,赋给FSO的 mFile ,试了试不行,怎么实现呢,
谢谢各位了! 
   

Answer 1

If Right(File1.Path, 1) <> "\" Then
mfile = File1.Path + "\" + File1.FileName
Else
mfile = File1.Path + File1.FileName
End If