none
problemas con este código RRS feed

  • Pregunta

  • Cuando llamo a esta función

        Public Sub ComprimirBackup()
            Using zip As ZipFile = New ZipFile()
                zip.Password = "password" 'aquí colocamos el password que va a tener nuestra carpeta
                zip.Encryption = EncryptionAlgorithm.PkzipWeak 'Seleccionamos el tipo de encriptación
                zip.AddDirectory("C:\usbshare1\Backup\") 'Ruta de origen del archivo a encriptar
                zip.Save("C:\BackupComprimido\Backup.zip") 'Ruta de destino donde se guardará el archivo comprimido y el nombre con que lo guardará
            End Using
            sw.WriteLine(Hour(Now) & ":" & Minute(Now) & ":" & Second(Now) & " Se ha comprimido la carpeta Backup")
            'Ahora borramos el directorio
            My.Computer.FileSystem.DeleteDirectory("C:\Backup\", FileIO.DeleteDirectoryOption.DeleteAllContents)
            sw.WriteLine(Hour(Now) & ":" & Minute(Now) & ":" & Second(Now) & " Se ha borrado la carpeta Backup")
            'Volvemos a crear el directorio
            My.Computer.FileSystem.CreateDirectory("C:\Backup\")
            sw.WriteLine(Hour(Now) & ":" & Minute(Now) & ":" & Second(Now) & " Se ha creado la carpeta Backup")
            sw.Flush()
        End Sub

    Mi problema es que mientras está comprimiendo la carpeta, sin haber terminado de comprimir ya me está ejecutando mas líneas de código y me gustaría que esperase a que ha terminado de comprimir el archivo para que siguiera con la estructura del código.

    Saludos y muchas gracias de antemano.

    lunes, 30 de julio de 2018 16:41

Todas las respuestas