Function Shellfile(strFile As String)

  Const SE_ERR_NOASSOC = 31

  Dim lngRet As Long

  lngRet = ShellExecuteA(0&, "open", strFile, vbNullString, vbNullString, vbNormalFocus)

  If lngRet = SE_ERR_NOASSOC Then

     '显示打开方式窗口

     CallShellExecuteA(0&,vbNullString,"RUNDLL32.EXE","shell32.dll,OpenAs_RunDLL " _

                        & strFile, vbNullString, vbNormalFocus)

  End If

  MsgBox "浏览完此文件请及时关闭文件，然后再点此确定按钮！", vbOKOnly, "提示"

End Function

Private Sub Form_Unload(Cancel As Integer)

Dim astr As String

astr = Dir("d:\lzzl\*.*")’d:\lzzl是临时文件夹

If astr <> "" Then Kill "d:\lzzl\*.*"

End Sub

这里只是列出了关键控件的执行代码，读者自己根据实际情况来补充完善。

五、结语

本程序代码在中文版VB6、Access 2003及WindowsXP SP2环境下测试通过，在冷轧工程资料管理中得到实际应用，并在一定程度上提高了文件保密的安全性。