Question

VB中如何引用文本框TextBox1.Text中的路径？

首先 是一个这样的程序Sub test()
MyFileName = Dir("d:\*.txt")
i = 1
Do While MyFileName <> ""
Cells(i, 1) = MyFileName
i = i + 1
MyFileName = Dir
Loop
End Sub

第二 用以下程序在TextBox1中导入了一个路径
Sub 按钮12_Click()
Dim FilenamePath As String
Dim fileDia As FileDialog
Set fileDia = Application.FileDialog(msoFileDialogFolderPicker)
With fileDia
.Filters.Clear
If .Show = -1 Then
TextBox2.Text = fileDia.SelectedItems(1)
End If
End With
Set fileDia = Nothing
End Sub
请问如何将文本框中的路径引用到第一个程序中的 MyFileName = Dir("d:\*.txt") ？
谢谢~~

Answer 1

你的：　MyFileName = Dir("d:\*.txt")

改为：　MyFileName = Dir(TextBox2.Text & "*.txt")

或者也可以在Sub Test() 中加个参数，
在调用的地方，把路径作为参数传入。

追问

不行啊。。 运行了 没反应，，，

追答

你的那个Application.FileDialog(msoFileDialogFolderPicker)返回结果，

后面没带 \ 的吗？
那就改为：MyFileName = Dir(TextBox2.Text & "\*.txt")

就是在后面 * 之前加个\

追问

嗯嗯 可以了 谢谢啦~~~

追答

^_^

Answer 2

一句话就搞定了：
MyFileName = Dir( TextBox1 & "\*.txt")