Option Explicit



'// References the cabview.dll

Const strCabDll = _

"C:\windows\explorer /root,{0CD7A5C0-9F37-11CE-AE65-08002B2E1262},"



Sub CabView()

Dim strFileName As String

Dim lOpenCab As Long



'// Opens Windows CabFiles

On Error GoTo ErrorHandler

strFileName = Application.GetOpenFileName("cab Files,*.cab")

If strFileName = "False" Then End



lOpenCab = Shell(strCabDll & strFileName, vbNormalFocus)



Exit Sub

ErrorHandler:  MsgBox ("Invalid Filename")



End Sub