vb CommonDialog 打开问题

来源：百度知道 编辑：UC知道 时间：2024/05/10 06:00:16
我用CommonDialog的showopen想选择一个exe，我需要把它的地址给 x ，把它的名字给 y ，怎么弄？

CommonDialog1.Filter = "可执行文件 (*.exe)|*.exe"
CommonDialog1.ShowOpen
x=CommonDialog1.FileName
y=CommonDialog1.FileTitle

如果y里的不想要扩展名，可以：
y=Left(CommonDialog1.FileTitle, Len(CommonDialog1.FileTitle) - 4)

CommonDialog1.DialogTitle = "打开游戏主程序"
CommonDialog1.InitDir = ""
CommonDialog1.Filter = "*.exe;"
CommonDialog1.FileName = ""
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Gameurl.Text = CommonDialog1.FileName
End If

CommonDialog1.ShowOpen
x=left(CommonDialog1.FileName,instrrev(CommonDialog1.FileName),"\")y=CommonDialog1.FileTitle

CommonDialog1.Filter = "可执行文件 (*.exe)|*.exe"
CommonDialog1.ShowOpen
y=dir(CommonDialog1.FileName)
x=left(CommonDialog1.FileName,len(CommonDialog1.FileName)-len(y))