Bonjour a tous,
j'utilise le code suivant pour creer un autoextractible:
1 2 3 4 5 6 7 8 9 10
| Archive = "C:\"
Source = "C:\test"
' 'création de l'archive
ShellExecute 0, "open", Zippeur, "a " & Archive & Text3.Text & " " & Source, "", vbHide
For i = 1 To 20: DoEvents: Next
Pause 1
'création de l'autoextractible
ShellExecute 0, "open", Zippeur, "s " & Archive & Text3.Text & ".rar", "", vbHide
For i = 1 To 20: DoEvents: Next
' 'suppression de l'archive |
cela me fait bien le patch autoextractible "c:\"
si je lance mon autoextractible alors qu'il est dans le c:\ pas de souci il s'extrait bien dans le repertoire c:\test
par contre si je deplace mon autoextractible dans un autre dossier ou sur le bureau, alors il se decompresse dans c:\documents and settings\nondupc\desktop.
comment faire pour forcer mon autoextractible a toujours s'extraire dans le C:\?
merci d'avance.
p.s.: quelqu'un aurais t'il le detail de tout les lettre utilisable pour winrar
ShellExecute 0, "open", Zippeur, "s "
et lmeur fonction?
Partager