Bonjour à toutes, bonjours à tous,
Je vous expose mon problème :
après l'execution du code suivant :Envoyé par WinRar
et je ne comprend pas pourquoi.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Declare Function ShellExecute Lib "shell32.dll" Alias _ "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _ As String, ByVal lpFile As String, ByVal lpParameters _ As String, ByVal lpDirectory As String, ByVal nShowCmd _ As Long) As Long Sub testZip() Dim Zippeur$, Archive$, Source$ Zippeur = "C:\Program Files\WinRAR\WinRAR.exe" Archive = "C:\ClasseurZippé.rar" Source = "C:\Documents and Settings\Boux2\Bureau\doc.pdf" ' 'création de l'archive ShellExecute 0, "open", Zippeur, _ "a " & Archive & " " & Source, "", vbHide End Sub
A noter que si Source = "C:\doc.pdf" winRar fonctionne bien comme il faut, j'en conclu à un problème d'espace ...
Autre question j'aimerais savoir si je fais une procédure qui créer une archive et quelle ne touve pas WinRar d'installer comment utiliser (Quel est le chemin ?) de l'outils windows XP de base ?
Merci de bien vouloir me répondre.
Partager