by Adam Luck (3 Submissions)
Category: Files/File Controls/Input/Output
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Mon 11th October 1999
Date Added: Mon 8th February 2021
Rating: (1 Votes)
This code allows you to access files from a Microsoft Cabinet File (*.cab)...
'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
No comments have been posted about This code allows you to access files from a Microsoft Cabinet File (*.cab).... Why not be the first to post a comment about This code allows you to access files from a Microsoft Cabinet File (*.cab)....