Locked how can i create winrar sfx archive with vb6

[MasterVb6]

hi, anybody knows

how can i create winrar sfx archive with vb6

[chequinho]

Re: how can i create winrar sfx archive with vb6

 

Maybe something like this:

 

[LENGUAJE=vb]

On Error GoTo ErrorHandler

Dim RarEXE As String

Dim RarPath As String

Dim args As String

RarEXE = "\WinRAR\Rar.exe"

If FileExist(Environ$("PROGRAMFILES(X86)") & RarEXE) Then

RarPath = getSpecialPath(CSIDL_PROGRAM_FILESX86) & RarEXE

ElseIf FileExist(Environ$("PROGRAMFILES") & RarEXE) Then

RarPath = getSpecialPath(CSIDL_PROGRAM_FILES) & RarEXE

Else

RarPath = ""

End If

If RarPath <> "" Then

Dim configFile As String

Dim destFile As String

configFile = "C:\xfs.conf" 'Config filename (see above)

destFile = "C:\install_me.exe" 'Destination filename

args = "a -r -sfx -z" & Chr$(34) & configFile & Chr$(34) & " auto_install " & Chr$(34) & destFile & Chr$(34)

Shell Chr$(34) & RarPath & Chr$(34) & " " & args, 0

End If[/LENGUAJE]

 

The config file should have something like this:

 

This is the hidden content, please

• Sign In
• or
• Sign Up

 

I haven't test the code, but it's kinda like this for sure.

 

Regards.

[MasterVb6]

Re: how can i create winrar sfx archive with vb6

 

chequinho thanks,you always answer of my question, you are great, one more time Thank you i will try this