Private Sub mnuFileOpen_Click() Dim sFile As String
With dlgCommonDialog .DialogTitle = "打开" .CancelError = False 'ToDo: 设置 common dialog 控件的标志和属性 .Filter = "所有文件 (*.*)|*.*" .ShowOpen If Len(.FileName) = 0 Then Exit Sub End If sFile = .FileName End With 'ToDo: 添加处理打开的文件的代码
End Sub
第4个回答 推荐于2016-04-18
'按钮command1 private sub command1_click()'单击 shell "explorer c:\windows",1 end sub '自行修改路径即可