Private Sub Command1_Click() CommonDialog1.FileName = "" CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then MsgBox "没有选择文件。" Else MsgBox "选择了文件:" & CommonDialog1.FileName End If End Sub建立一个窗体,在上面放一个 CommonDialog 和一个 button,然后将上面的代码粘贴进去。 (注意:如果工具栏上没有 CommonDialog 控件,请在vb菜单“工程-->部件”中选中 micorsoft common dialog control 6.0
取得文件名后,放在 .filename 属性中
CommonDialog1.FileName = ""
CommonDialog1.ShowOpen
If CommonDialog1.FileName = "" Then
MsgBox "没有选择文件。"
Else
MsgBox "选择了文件:" & CommonDialog1.FileName
End If
End Sub建立一个窗体,在上面放一个 CommonDialog 和一个 button,然后将上面的代码粘贴进去。
(注意:如果工具栏上没有 CommonDialog 控件,请在vb菜单“工程-->部件”中选中 micorsoft common dialog control 6.0
这个问题完了就结贴。谢谢 fxy_2002(阿勇)
还有不同操作系统的区别,98与xp就不一样,所最终还是得动用一系列API,很麻烦。