杭州交通信息网建设工程监理手册:VB高手进！！！！！
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/02 07:53:22
Private Sub Command1_Click()
With CommonDialog1
.Filter = "全部文件(*.*)|*.*"
.DialogTitle = "选择文件,查看文件完整路径"
.DefaultExt = "*.*"
.InitDir = "c:\"
.ShowOpen
If .FileName <> "" Then
Text1.Text = .FileName
End If
End With
End Sub
Private Sub Command2_Click()
Dim rscx
rscx = Shell(Text1, 1)
End Sub
我想在这段代码里如何确认 text1 里是否是正确目录 ？
如不是我想让他弹出一个对话框“你选择的目录错误”
该怎么实现？
With CommonDialog1
.Filter = "全部文件(*.*)|*.*"
.DialogTitle = "选择文件,查看文件完整路径"
.DefaultExt = "*.*"
.InitDir = "c:\"
.ShowOpen
If .FileName <> "" Then
Text1.Text = .FileName
End If
End With
End Sub
Private Sub Command2_Click()
Dim rscx
rscx = Shell(Text1, 1)
End Sub
我想在这段代码里如何确认 text1 里是否是正确目录 ？
如不是我想让他弹出一个对话框“你选择的目录错误”
该怎么实现？
我没看懂问题