神马品牌网苹果订单取消退款:VB高手进！！！！！
来源：百度文库 编辑：神马品牌网 时间：2024/05/09 03:47:48
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 里是否是正确目录 ？
如不是我想让他弹出一个对话框“你选择的目录错误”
该怎么实现？
我没看懂问题