Uitpakken & installeren

[eeyk]

ik ben bezig met het Automatich update programma die werkt maar nu heb ik een probleem hoe kan in voor zorgen dat als er een update word gedownload het Bevoorbeeld uit .rar wordt gehaalt

dus automatich update download Patch1.2.rar en dan klar met downloaden moet die uitpakken weet iemand hier van de Source Voor VB 6.0

 

[CoD_NL]

Het is denk ik het makkelijkste om gewoon de console versie te gebruiken, rar.exe. En deze dan aan te roepen via ShellExecute.

 

[eeyk]

dus zo iets

if download.max = 100 then
download.stop()
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set a = fs.CreateTextFile("c:\cwfm\tmp\history.tmp", True)
  a.Close
temp$ = Dir ("c:\cwfm\update\*.rar") 

Open "c:\cwfm\update\patch.rar" For Input As 3

end if

 

[CoD_NL]

Nee, ik bedoel het eigenlijk anders. Rarlabs biedt een tool, genaamd unrar.exe aan waarmee je rar bestanden kunt uitpakken via de command line. Mijn idee is dus om via unrar.exe het rar bestand te laten uitpakken. (Unrar.exe starten via ShellExecute)

Command line options unrar.exe:

UNRAR 3.70 freeware Copyright (c) 1993-2007 Alexander Roshal

Usage: unrar <command> -<switch 1> -<switch N> <archive> <files...>
<@listfiles...> <path_to_extract\>

<Commands>
e Extract files to current directory
l[t,b] List archive [technical, bare]
p Print file to stdout
t Test archive files
v[t,b] Verbosely list archive [technical,bare]
x Extract files with full path

<Switches>
- Stop switches scanning
ac Clear Archive attribute after compression or extraction
ad Append archive name to destination path
ap<path> Set path inside archive
av- Disable authenticity verification check
c- Disable comments show
cfg- Disable read configuration
cl Convert names to lower case
cu Convert names to upper case
dh Open shared files
ep Exclude paths from names
ep3 Expand paths to full including the drive letter
f Freshen files
id[c,d,p,q] Disable messages
ierr Send all messages to stderr
inul Disable all messages
ioff Turn PC off after completing an operation
kb Keep broken extracted files
n<file> Include only specified file
n@ Read file names to include from stdin
n@<list> Include files in specified list file
o+ Overwrite existing files
o- Do not overwrite existing files
oc Set NTFS Compressed attribute
or Rename files automatically
ow Save or restore file owner and group
p[password] Set password
p- Do not query password
r Recurse subdirectories
ri<P>[:<S>] Set priority (0-default,1-min..15-max) and sleep time in ms
sl<size> Process files with size less than specified
sm<size> Process files with size more than specified
ta<date> Process files modified after <date> in YYYYMMDDHHMMSS format
tb<date> Process files modified before <date> in YYYYMMDDHHMMSS format
tn<time> Process files newer than <time>
to<time> Process files older than <time>
ts<m,c,a>[N] Save or restore file time (modification, creation, access)
u Update files
v List all volumes
ver[n] File version control
vp Pause before each volume
x<file> Exclude specified file
x@ Read file names to exclude from stdin
x@<list> Exclude files in specified list file
y Assume Yes on all queries

 

[eeyk]

if download.max = 100 then
download.stop()
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set a = fs.CreateTextFile("c:\cwfm\tmp\history.tmp", True)
  a.Close
temp$ = Dir ("c:\cwfm\update\*.rar") 

UnRAR = "c:\programa files\WinRAR\UnRAR.exe"

<UnRAR> = "c:\cwfm\update\patch.rar -unpack"
Open "c:\cwfm\update\patch.rar" For Input As 3

end if

 

[CoD_NL]

Volgens mij begrijp je het nog niet helemaal. Met unrar kun je bestanden uitpakken, in de vorm van: unrar.exe e update.rar ; (zie command line options unrar.exe)

Jouw programma moet dus de tool unrar.exe opstarten met de juiste parameters. (zie MSDN of dergelijke voor documentatie ShellExecute)

 

[eeyk]

ok ik snap het (bedankt) ik ga nu probeeren