VBcoders Browse New Submit Contact Sign In

No account? Register free

Forgot password?

Simple Archive Format (store small files in one large file)

Marius Hudea  (5 Submissions)   Files/File Controls/Input/Output   Intermediate   Wed 3rd February 2021

A class that implements a very simple archive format that allows you to store in a single file lots of small files.

Inputs
Functions available :Open, Close, Add From String, Add From File, Extract To String and Extract to File

API Declarations
Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, ByVal lpOverlapped As Any) As Long
Private Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, ByVal lpOverlapped As Any) As Long
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function SetFilePointer Lib "kernel32" (ByVal hFile As Long, ByVal lDistanceToMove As Long, lpDistanceToMoveHigh As Long, ByVal dwMoveMethod As Long) As Long
Private Declare Function apiFileSize Lib "kernel32" Alias "GetFileSize" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long

Rate Simple Archive Format (store small files in one large file) (2(2 Vote))

Download Simple Archive Format (store small files in one large file)

Simple Archive Format (store small files in one large file) Comments

No comments yet — be the first to post one!

Post a Comment

0/1000 characters