Gambas-it

Gambas dal mondo esterno => Spagna => Topic aperto da: vuott - 16 Aprile 2020, 15:16:08

Titolo: Comprimere vari file e cartelle
Inserito da: vuott - 16 Aprile 2020, 15:16:08

https://foro.gambas-es.org/viewtopic.php?f=5&t=7969

Titolo: Re:Comprimere vari file e cartelle
Inserito da: Gianluigi - 16 Aprile 2020, 17:07:26

A me funziona benissimo:

Codice: [Seleziona]

Public Sub Main()

  Dim z As New Compress
  Dim f As String

  For Each f In ["/home/gian/file1.txt", "/home/gian/file2.txt", "/home/gian/file3.txt"]
    With z
      .Type = "zlib"
      .File(f, f & ".zip", z.Max)
    End With
  Next

End

Certo che se uno dopo home non mette il nome dell'user la vedo dura  ;D

Titolo: Re:Comprimere vari file e cartelle
Inserito da: vuott - 16 Aprile 2020, 17:11:46

Citazione da: Gianluigi - 16 Aprile 2020, 17:07:26

A me funziona benissimo:
.......
Certo che se uno dopo home non mette il nome dell'user la vedo dura

Sì, l'avevo notato anche io, ma io credo che lui voglia inserire in un unico file compresso i tre file.