Private Sub Open_File()
Wiht CommonDialog1
.ShowOpen
strFile = .FileNme '完整的文件路径和文件名
End With
Shell(strFile, 1)
End Sub
2 保存和恢复你的路径
Private Sub Form_Unload()
Open App.Path & "\filepath.ini" For Output As #1
Print #1, strFile
Close #1
End Sub
Private Sub Form_Load()
If Dir(App.Path & "\filepath.ini") > "" Then
Open App.Path & "\filepath.ini" For Input As #1
Line Input #1, strFile
Close #1
CommonDialog1.FileName = strFile
End If
End Sub