VSTO中VB编写导入文件路径

zhangxueliang

file:///C:\Users\Zhang Xue Liang\AppData\Roaming\Tencent\Users\531837449\QQ\WinTemp\RichOle\S%EE~N9LNS{)4TGJZWU65RH.png        Dim I
        Dim dirs As String
        TextBox1.Text = ActiveForm.Name
        If TextBox1.Text = "" Or TextBox1.Text = "False" Then TextBox1.Text = ActiveForm.Name & "\"
        ListBox1.Items.Clear()
        ListBox2.Items.Clear()
        For I = Len(TextBox1.Text) To 1 Step -1
            If Mid(TextBox1.Text, I, 1) Like "\" Then Exit For
        Next I
        TextBox1.Text = Mid(TextBox1.Text, 1, I - 1)


        dirs = Dir(TextBox1.Text & "\*.htm*")
        Do While dirs <> ""
            If dirs <> ActiveForm.Name Then ListBox1.Items.Add(dirs)
            dirs = Dir()
        Loop
运行以后，点击导入，无法导入路径，选择文件，求指导

guanmy

为什么不用openFileDialog和savefiledialog？