Ecco uno dei tanti quesiti che ho da sottoporre in questa sezione a proposito del mio già citato progetto (che ha causato anche una piccola polemica non voluta col moderatore).

Questa è la routine di compressione di una cartella che contiene diversi files e funziona perfettamente.
Domanda; Per decomprimere la stessa con Winrar quale è la sintassi esatta? (contenuto di Stringa)

Private Sub CmdComprimi_Click()
Dim ProcId As Long
Dim ProcHandle As Long
Dim Res As Long
Dim Stringa As String
CmdStop.Enabled = True
CmdComprimi.Enabled = False
CmdInvia.Enabled = False
CmdElabora.Enabled = False
CmdAzzera.Enabled = False
LblMessaggio = "Attendere ... Compressione files in corso"
LblMessaggio.Visible = True
LblMessaggio.Refresh

Stringa = "C:\Programmi\WinRAR\rar.exe a -ep1 -sfx """ & PathAggiornamenti & "\Aggiornamenti.rar" & """ """ & PathAggiornamenti & "\Aggiornamenti" & """"
ProcId = Shell(Stringa)
ProcHandle = OpenProcess(PROCESS_ALL_ACCESS, False, ProcId)
Call WaitForSingleObject(ProcHandle, INFINITE)
Call CloseHandle(ProcHandle)

'---------------Eliminazione cartella Aggiornamenti

LblMessaggio = "Attendere ... Eliminazione cartella in corso"
LblMessaggio.Visible = True
LblMessaggio.Refresh
Percorso = PathAggiornamenti & "\Aggiornamenti"
CtrEsistenzaCartella
If Trovato = True Then
KillDir Percorso
End If

Dir1.Refresh
LstFiles1.Refresh

CmdStop.Enabled = False
CmdComprimi.Enabled = False
CmdInvia.Enabled = True
CmdElabora.Enabled = False
CmdAzzera.Enabled = True

LblMessaggio = "Compressione files terminata"
LblMessaggio.Visible = True
WsQuestion = False
GestioneErrori
If Risposta = "Ok" Then
Risposta = ""
End If
End Sub