如何做好完美直销:懂VB的来帮帮忙啊！

来源：百度文库 编辑：查人人中国名人网 时间：2024/05/10 14:13:09
我要做一个查找目录根并点击运行它的一个程序
我要用4个控件实现
Command1 （做一个查找目录的按扭）
CommonDialog1
Text1 (做一个找到目录后显示目录根的文本框）
Command2 (点击后运行它（就是运行text1中显示的目录根)

以下代码已经完成了
Command1 （做一个查找目录的按扭）
CommonDialog1
Text1 (做一个找到目录后显示目录根的文本框）

Private Sub Command1_Click()
With CommonDialog1
.Filter = "全部文件(*.*)|*.*"
.DialogTitle = "选择文件,查看文件完整路径"
.DefaultExt = "*.*"
.InitDir = "c:\"
.ShowOpen
If .FileName <> "" Then
Text1.Text = .FileName
End If
End With
End Sub

请问 我要怎么才能 用 Command2 执行它？????
还有一个问题忘记问了补充一下~~~

选中后，如果text1内显示的目录不是正确目录的话 我想让他弹出一个 提示 “你选择的目录不是正确目录” 如何实现？

楼下老兄给的语句都是错的不能运行

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

直接用shell语句

shell Text1.Text

懂VB的来帮帮忙啊！ vb菜鸟求助，懂vb的帮帮忙~~ VB高手来帮帮忙 VB高手来帮帮忙 懂vb的朋友帮帮忙 懂vb的朋友帮帮忙 VB题：打开文件的问题，请进来帮帮忙 懂vb的来回答 哪位大虾会VB编程啊，快来帮帮忙啊啊 懂VB的高手，进来帮帮忙