• Home
 · 
• Files/File Controls/Input/Output
 · 
• This code allows you to access files from a Microsoft Cabinet File (*.cab)...

This code allows you to access files from a Microsoft Cabinet File (*.cab)...

This code allows you to access files from a Microsoft Cabinet File (*.cab)...

Rate This code allows you to access files from a Microsoft Cabinet File (*.cab)...

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'Designed By Adam Luck, 1999...

Private Sub Command1_Click()
On Error GoTo ErrorHandler
FileNme = Dir1.Path + "\" & File1.FileName
zxOpen: opencab = Shell("c:\windows\explorer /root,{0CD7A5C0-9F37-11CE-AE65-08002B2E1262}," + FileNme, vbNormalFocus)
FileNme = Dir1.Path + File1.FileName
opencab = Shell("c:\windows\explorer /root,{0CD7A5C0-9F37-11CE-AE65-08002B2E1262}," + FileNme, vbNormalFocus)
Exit Sub
ErrorHandler:  MsgBox ("Invalid Filename")
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub