« precedente successivo »
Pagine: [1]   Vai giù

Autore Topic: Comprimere vari file e cartelle  (Letto 270 volte)

Offline vuott

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 11.251
  • Ne mors quidem nos iunget
    • Mostra profilo
Comprimere vari file e cartelle
« il: 16 Aprile 2020, 15:16:08 »
« Ultima modifica: 08 Agosto 2020, 17:33:47 da vuott »
Registrato
« Chiunque, non ricorrendo lo stato di necessità, nel proprio progetto Gambas fa uso delle istruzioni Shell o Exec, è punito con la sanzione pecuniaria da euro 20,00 a euro 60,00. »

Offline Gianluigi

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 4.138
  • Tonno verde
    • Mostra profilo
Re:Comprimere vari file e cartelle
« Risposta #1 il: 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
Registrato
nuoto in attesa del bacio di una principessa che mi trasformi in un gambero azzurro

Offline vuott

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 11.251
  • Ne mors quidem nos iunget
    • Mostra profilo
Re:Comprimere vari file e cartelle
« Risposta #2 il: 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.
Registrato
« Chiunque, non ricorrendo lo stato di necessità, nel proprio progetto Gambas fa uso delle istruzioni Shell o Exec, è punito con la sanzione pecuniaria da euro 20,00 a euro 60,00. »
Pagine: [1]   Vai su
« precedente successivo »