UC知道VB6.0 打开文件的问题
来源：百度知道 编辑：UC知道 时间：2024/05/25 02:51:47
我要一个打开文件的代码：
我要打开
C:\Program Files (x86)\TianCity\PopKart\M01\KartRider.exe
其他我看到了这种说法：
在“工程”菜单里有“部件”，打开“部件”选项卡，把“Microsoft Common Dialog Contrlo 6.0”选项的钩打上，确定，此时在工具箱上出现了“CommonDialog控件”
建立一个CommonDialog控件名为：CommonDialog1
建立一个按扭空间名为：Command1,给Command1添加Click事件：
Private Sub Command1_Click()
CommonDialog1.DialogTitle = "打开游戏主程序"
CommonDialog1.InitDir = "c:\"
CommonDialog1.Filter = "MapleStory.exe|MapleStory.exe;"
CommonDialog1.FileName = ""
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Shell CommonDialog1.FileName
End If
End Sub
但是，我没有Microsoft Common Dialog Contrlo 6.0这个控件。
请高人帮忙写一段代码～！
代码很好的我追加20分！
我要打开
C:\Program Files (x86)\TianCity\PopKart\M01\KartRider.exe
其他我看到了这种说法：
在“工程”菜单里有“部件”，打开“部件”选项卡，把“Microsoft Common Dialog Contrlo 6.0”选项的钩打上，确定，此时在工具箱上出现了“CommonDialog控件”
建立一个CommonDialog控件名为：CommonDialog1
建立一个按扭空间名为：Command1,给Command1添加Click事件：
Private Sub Command1_Click()
CommonDialog1.DialogTitle = "打开游戏主程序"
CommonDialog1.InitDir = "c:\"
CommonDialog1.Filter = "MapleStory.exe|MapleStory.exe;"
CommonDialog1.FileName = ""
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Shell CommonDialog1.FileName
End If
End Sub
但是，我没有Microsoft Common Dialog Contrlo 6.0这个控件。
请高人帮忙写一段代码～！
代码很好的我追加20分！
要给你的按钮添加这些代码：
Private Sub Command1_Click()
CommonDialog1.DialogTitle = "KartRider.exe "
CommonDialog1.InitDir = "C:\Program Files (x86)\TianCity\PopKart\M01\"
CommonDialog1.Filter = "MapleStory.exe|MapleStory.exe;"
CommonDialog1.FileName = ""
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Shell CommonDialog1.FileName
End If
End Sub