请教:VB怎么做目录对话筐

Posted 2023-04-03

如题:一个按钮可以选择文件 点击另一个按钮则启动某个EXE文件- - 会都说下 说详细点 不要叫我他什么地方去问- - 代码臣上来 谢谢拉- -
szdan 你说的一个控件是什么控件 我按出来是很多个的

按 ctrl+t 调出“部件”对话框，选择 Microsoft Windows Common Controls 6.0 (SP6)（如图所示），确定后左边就会多出一个控件，双击把它加入到窗体上 

Dim sName As String 

Private Sub Command1_Click() 

On Error GoTo OnErr 

CommonDialog1.DialogTitle = "请输入您需要启动的 EXE 文件名" 

CommonDialog1.Filter = "EXE 文件(*.exe)|*.exe|所有文件|*.*" 

CommonDialog1.CancelError = True 

CommonDialog1.ShowOpen 

sName = CommonDialog1.FileName 

Text1.Text = sName 

Exit Sub 

OnErr: 

If Err.Number <> cdlCancel Then Resume Next 

End Sub 

Private Sub Command2_Click() 

If sName <> "" And Dir(sName) <> "" Then Shell sName, vbNormalFocus 

End Sub 

OnErr: 

If Err.Number <> cdlCancel Then Resume Next 

End Sub 

Private Sub Command2_Click() 

If sName <> "" And Dir(sName) <> "" Then Shell sName, vbNormalFocus 

End Sub

参考技术A 非常简单~~ 用commandialog控件选择文件,shellexecute这个api启动程序
我已经测试过了,非常的成功!!!

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1

Private sName As String

Private Sub Command1_Click()
CommonDialog1.DialogTitle = "请输入您需要启动的 EXE 文件名"
CommonDialog1.Filter = "EXE 文件(*.exe)|*.exe|所有文件|*.*"
CommonDialog1.CancelError = False
CommonDialog1.ShowOpen
sName = CommonDialog1.FileName
Text1.Text = sName
End Sub

Private Sub Command2_Click()
Dim sDir As String, sf() As String
sf = Split(sName, "\")
For i = 0 To (UBound(sf) - 1)
sDir = sDir & sf(i) & "\"
Next i
'sDir是启动软件的默认路径
ShellExecute Me.hwnd, "open", sName, vbNullString, sDir, 1
End Sub

vb怎么实现弹出对话框选择文件路径

可生成ocx的

VB6.0使用CommonDialog 控件弹出对话框选择文件路径。

通过使用 CommonDialog 控件的 ShowOpen 和 ShowSave
方法可显示“打开”和“另存为”对话框。

两个对话框均可用以指定驱动器，目录，文件扩展名和文件名。除对话的标题不同外，另存为对话外观上与打开对话相似。

下例显示“打开”对话框然后在信息框中显示所选的文件名：

Private Sub Command1_Click()
    \' 设置“CancelError”为 True
    CommonDialog1.CancelError = True
    On Error GoTo ErrHandler
    \' 设置标志
    CommonDialog1.Flags = cdlOFNHideReadOnly
    \' 设置过滤器
    CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
    "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
    \' 指定缺省的过滤器
    CommonDialog1.FilterIndex = 2
    \' 显示“打开”对话框
    CommonDialog1.ShowOpen
    \' 显示选定文件的名字
    MsgBox CommonDialog1.FileName \'显示路径
    Exit Sub
ErrHandler:
    \' 用户按了“取消”按钮
    Exit Sub
End Sub 参考技术A 勾选 部件micorsoft commom dialog contorl 6.0添加控件 CommonDialog1 CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName 参考技术B 勾选 部件micorsoft commom dialog contorl 6.0添加控件
.showopen