Question

VB文本框TEXT1中的路径引用到代码中

Text1中的内容为SVE\F=d:\123\ds.des,我要把等号右边的路径引用到下面的代码里。
Private Sub Timer1_Timer()
Static ft As Date, fn As Long
If Dir("d:\dd:\123\ds.des) <> "" Then
Form2.Show
End If
End Sub
注代码，谢谢！

Answer 1

Private Sub Timer1_Timer()
    Static 弯巧ft As Date, fn As Long
    清春On Error Goto Exit_
    If Dir(Split(Text1.text,"=")(1)) <> "" Then '把文本串按=分埋正键隔为数组，取第2个元素就是路径。所以文本框中的等号必须要有的，否则就会出错。可以加个出错处理语句。
        Form2.Show
    End If
    Exit_:
End Sub

是这个意思吗？

追问

还是识别不了。
如果在Text1中直接输入SVE\F=d:\123\ds.des可以识别。
因为Text1中的内容SVE\F=d:\123\ds.des是自动从文件中提取的，是不是这里面有一个时间差呢？

Answer 2

If Dir(Split(Text1, "=")(1)) <> "" Then

追问

还是识别不了。
如果在Text1中直接输入SVE\F=d:\123\ds.des可以识别。
因为Text1中的内容SVE\F=d:\123\ds.des是自动从文件中提取的，是不是这里面有一个时间差呢？

追答

判断之前 先 msgbox Split(Text1, "=")(1) 看看是否正确