• Home
 · 
• Files/File Controls/Input/Output
 · 
• Save any embedded resource in your EXE file as an independent file

Save any embedded resource in your EXE file as an independent file

Save any embedded resource in your EXE file as an independent file

Rate Save any embedded resource in your EXE file as an independent file

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

a VB6 resource file and save the resource to disk as an
independent file.

Usage instructions :

Open the resource file in your project with "Resource Editor"
Click "Add Custom resource" and Add the file that you want to embed in your
	Final EXE file.
Now Double-Click the newly added resource and remember the "Type" and "ID" values
These 2 values will be used when saving this resource as a file and you can change them
	to what ever you want.

The fucntion SaveRestoFile takes 3 params

	1- ResID 	:	ID of embedded resource
	2- ResType 	:	Type of embedded resource
	3- FilePath 	:	where will resource will be saved * Directory must exist !

	The return of this function is a boolean value to report success or failure.

Now Paste this Code i your Project :

----------------------------------------------------------------------------------------------------------------------------
IN a Module :
----------------------------------------------------------------------------------------------------------------------------

Option Explicit


Private Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, ByVal lpOverlapped As Long) 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 Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function FlushFileBuffers Lib "kernel32" (ByVal hFile As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Const GENERIC_WRITE = &H40000000
Private Const GENERIC_READ = &H80000000
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Private Const CREATE_ALWAYS = 2
Private Const CREATE_NEW = 1

Public Function SaveRestoFile(ResID As Long, ResType As String, FilePath As String) As Boolean

Dim ArrayOfBits()           As Byte
Dim hFile                   As Long
Dim lBytesWritten           As Long

    On Local Error Resume Next

    ReDim ArrayOfBits(Len(LoadResData(ResID, ResType)))
    ArrayOfBits = LoadResData(ResID, ResType)

 
        hFile = CreateFile(FilePath, GENERIC_WRITE Or GENERIC_READ, 0, 0, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)
        If hFile <> -1 Then
           If WriteFile(hFile, ArrayOfBits(0), UBound(ArrayOfBits) + 1, lBytesWritten, 0) Then
              FlushFileBuffers hFile
              CloseHandle hFile
              SaveRestoFile = True
           End If
        End If


End Function



----------------------------------------------------------------------------------------------------------------------------
IN a Form  :
----------------------------------------------------------------------------------------------------------------------------
Private Sub Command1_Click()

'Save the backup INI file in case the original file was corrupted or missing !

SaveRestoFile 101, "INI", "C:\Settings.ini"

End Sub