Question

vb 获取用户指定文件夹下文件名

Private Sub Command1_Click()
Const yh = """" '这里输出结果是"
a = yh & Text2.Text & yh
Text1.Text = Dir(a)
Do While True
b = Dir
Text1.Text = Text1.Text + Chr$(13) + Chr$(10) + b
If b = "" Then Exit Do
Loop

End Sub

这时候提示错误 52 错误文件名或号码 text文本中没有其他奇怪的东西

Answer 1

没明白你加这一句是什么意思Const yh = """"

你加了这一句结果就多了很多引号.当然出错.

a =  Text2.Text
    Text1.Text = Dir(a)
        Do While True
        b = Dir
        Text1.Text = Text1.Text + Chr$(13) + Chr$(10) + b
        If b = "" Then Exit Do
    Loop

改成这样就可以了

追问

好吧 现在好了。。 之前不知道为啥这代码试过 不行
Const yh = """" 这是定义符号常量 不过 为啥我msgbox yh 返回值是 "

追答

本来就"所以路径上面不能有引号的.