Estrae il contenuto di un singolo file da un file .ZIP compresso
Sintassi
Parametri
ZipFileName : String Nome del file ZIP da scompattare
FileName : String Nome del file da estrarre
Tipo dati restituito
String : Restituisce il contenuto del file come stringa
Sintassi
UnzipSingleFile(ZipFileName , FileName) as String
Parametri
ZipFileName : String Nome del file ZIP da scompattare
FileName : String Nome del file da estrarre
Tipo dati restituito
String : Restituisce il contenuto del file come stringa
Esempio
Option Explicit
Dim nomeFileZip
Dim Contenuto
nomeFileZip="C:\archivio1.zip"
Contenuto=Rdy.UnzipSingleFile(nomeFileZip, "note.txt")
If Contenuto<>"" Then
Rdy.ShowMessage("Il contenuto del file note.txt e' il seguente " & vbCrLf & Contenuto)
Else
Rdy.ShowMessage("Errore durante la scompattazione del file")
End If