-
Decompressione con Winrar in VB
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
Permessi di Scrittura
- Tu non puoi inviare nuove discussioni
- Tu non puoi inviare risposte
- Tu non puoi inviare allegati
- Tu non puoi modificare i tuoi messaggi
-
Regole del Forum
Segnalibri