INCLUIR SUB-PASTAS NO BACKUP

RICATOM 01/07/2010 11:21:21
#346244

Bom dia colegas

Estou usando a dll AUNZIP32 para fazer backup, mas agora preciso fazer backup tambÃ©m das sub-pastas, mas não estou conseguindo

Estou usando o modulo

[c] Option Explicit

Declare Function addZIP Lib [Ã”]azip32.dll[Ã”] () As Integer
Declare Function addZIP_Abort Lib [Ã”]azip32.dll[Ã”] (ByVal bFlag As Integer) As Integer
Declare Function addZIP_ArchiveName Lib [Ã”]azip32.dll[Ã”] (ByVal lpStr As String) As Integer
Declare Function addZIP_BuildSFX Lib [Ã”]azip32.dll[Ã”] (ByVal iFlag As Integer) As Integer
Declare Function addZIP_ClearAttributes Lib [Ã”]azip32.dll[Ã”] (ByVal Int16 As Integer) As Integer
Declare Function addZIP_Comment Lib [Ã”]azip32.dll[Ã”] (ByVal lpStr As String) As Integer
Declare Function addZIP_Delete Lib [Ã”]azip32.dll[Ã”] (ByVal Int16 As Integer) As Integer
Declare Function addZIP_DeleteComment Lib [Ã”]azip32.dll[Ã”] (ByVal Int16 As Integer) As Integer
Declare Function addZIP_DisplayComment Lib [Ã”]azip32.dll[Ã”] (ByVal Int16 As Integer) As Integer
Declare Function addZIP_Encrypt Lib [Ã”]azip32.dll[Ã”] (ByVal lpStr As String) As Integer
Declare Function addZIP_Exclude Lib [Ã”]azip32.dll[Ã”] (ByVal lpStr As String) As Integer
Declare Function addZIP_ExcludeListFile Lib [Ã”]azip32.dll[Ã”] (ByVal lpStr As String) As Integer
Declare Function addZIP_GetLastError Lib [Ã”]azip32.dll[Ã”] () As Integer
Declare Function addZIP_GetLastWarning Lib [Ã”]azip32.dll[Ã”] () As Integer
Declare Function addZIP_Include Lib [Ã”]azip32.dll[Ã”] (ByVal lpStr As String) As Integer
Declare Function addZIP_IncludeArchive Lib [Ã”]azip32.dll[Ã”] (ByVal iFlag As Integer) As Integer
Declare Function addZIP_IncludeDirectoryEntries Lib [Ã”]azip32.dll[Ã”] (ByVal flag As Integer) As Integer
Declare Function addZIP_IncludeFilesNewer Lib [Ã”]azip32.dll[Ã”] (ByVal DateVal As String) As Integer
Declare Function addZIP_IncludeFilesOlder Lib [Ã”]azip32.dll[Ã”] (ByVal DateVal As String) As Integer
Declare Function addZIP_IncludeHidden Lib [Ã”]azip32.dll[Ã”] (ByVal iFlag As Integer) As Integer
Declare Function addZIP_IncludeListFile Lib [Ã”]azip32.dll[Ã”] (ByVal lpStr As String) As Integer
Declare Function addZIP_IncludeReadOnly Lib [Ã”]azip32.dll[Ã”] (ByVal iFlag As Integer) As Integer
Declare Function addZIP_IncludeSystem Lib [Ã”]azip32.dll[Ã”] (ByVal iFlag As Integer) As Integer
Declare Sub addZIP_Initialise Lib [Ã”]azip32.dll[Ã”] ()
Declare Function addZIP_InstallCallback Lib [Ã”]azip32.dll[Ã”] (ByVal cbFunction As Long) As Integer
Declare Function addZIP_Overwrite Lib [Ã”]azip32.dll[Ã”] (ByVal Int16 As Integer) As Integer
Declare Function addZIP_Recurse Lib [Ã”]azip32.dll[Ã”] (ByVal Int16 As Integer) As Integer
Declare Function addZIP_Register Lib [Ã”]azip32.dll[Ã”] (ByVal lpStr As String, ByVal Uint32 As Long) As Integer
Declare Function addZIP_SaveAttributes Lib [Ã”]azip32.dll[Ã”] (ByVal Int16 As Integer) As Integer
Declare Function addZIP_SaveRelativeTo Lib [Ã”]azip32.dll[Ã”] (ByVal szPath As String) As Integer
Declare Function addZIP_SaveStructure Lib [Ã”]azip32.dll[Ã”] (ByVal Int16 As Integer) As Integer
Declare Function addZIP_SetArchiveDate Lib [Ã”]azip32.dll[Ã”] (ByVal Int16 As Integer) As Integer
Declare Function addZIP_SetCompressionLevel Lib [Ã”]azip32.dll[Ã”] (ByVal Int16 As Integer) As Integer
Declare Function addZIP_SetParentWindowHandle Lib [Ã”]azip32.dll[Ã”] (ByVal Hwnd As Long) As Integer
Declare Function addZIP_SetTempDrive Lib [Ã”]azip32.dll[Ã”] (ByVal lpStr As String) As Integer
Declare Function addZIP_SetWindowHandle Lib [Ã”]azip32.dll[Ã”] (ByVal Hwnd As Long) As Integer
Declare Function addZIP_Span Lib [Ã”]azip32.dll[Ã”] (ByVal Int16 As Integer) As Integer
Declare Function addZIP_Store Lib [Ã”]azip32.dll[Ã”] (ByVal lpStr As String) As Integer
Declare Function addZIP_UseLFN Lib [Ã”]azip32.dll[Ã”] (ByVal Int16 As Integer) As Integer
Declare Function addZIP_View Lib [Ã”]azip32.dll[Ã”] (ByVal Int16 As Integer) As Integer

Declare Function addUNZIP Lib [Ã”]aunzip32.dll[Ã”] () As Long
Declare Function addUNZIP_Abort Lib [Ã”]aunzip32.dll[Ã”] (ByVal iFlag As Integer) As Integer
Declare Function addUNZIP_ArchiveName Lib [Ã”]aunzip32.dll[Ã”] (ByVal FileName As String) As Integer
Declare Function addUNZIP_Decrypt Lib [Ã”]aunzip32.dll[Ã”] (ByVal cPassword As String) As Integer
Declare Function addUNZIP_DisplayComment Lib [Ã”]aunzip32.dll[Ã”] (ByVal bFlag As Integer) As Integer
Declare Function addUNZIP_Exclude Lib [Ã”]aunzip32.dll[Ã”] (ByVal files As String) As Integer
Declare Function addUNZIP_ExcludeListFile Lib [Ã”]aunzip32.dll[Ã”] (ByVal cFile As String) As Integer
Declare Function addUNZIP_ExtractTo Lib [Ã”]aunzip32.dll[Ã”] (ByVal cPath As String) As Integer
Declare Function addUNZIP_Freshen Lib [Ã”]aunzip32.dll[Ã”] (ByVal iFlag As Integer) As Integer
Declare Function addUNZIP_GetLastError Lib [Ã”]aunzip32.dll[Ã”] () As Integer
Declare Function addUNZIP_GetLastWarning Lib [Ã”]aunzip32.dll[Ã”] () As Integer
Declare Function addUNZIP_Include Lib [Ã”]aunzip32.dll[Ã”] (ByVal files As String) As Integer
Declare Function addUNZIP_IncludeListFile Lib [Ã”]aunzip32.dll[Ã”] (ByVal cFile As String) As Integer
Declare Sub addUNZIP_Initialise Lib [Ã”]aunzip32.dll[Ã”] ()
Declare Function addUNZIP_InstallCallback Lib [Ã”]aunzip32.dll[Ã”] (ByVal fn As Long) As Integer
Declare Function addUNZIP_Overwrite Lib [Ã”]aunzip32.dll[Ã”] (ByVal iFlag As Integer) As Integer
Declare Function addUNZIP_Register Lib [Ã”]aunzip32.dll[Ã”] (ByVal cName As String, ByVal iNumber As Long) As Integer
Declare Function addUNZIP_ResetDefaults Lib [Ã”]aunzip32.dll[Ã”] ()
Declare Function addUNZIP_RestoreAttributes Lib [Ã”]aunzip32.dll[Ã”] (ByVal iFlag As Integer) As Integer
Declare Function addUNZIP_RestoreStructure Lib [Ã”]aunzip32.dll[Ã”] (ByVal iFlag As Integer) As Integer
Declare Function addUNZIP_SetParentWindowHandle Lib [Ã”]aunzip32.dll[Ã”] (ByVal Hwnd As Long) As Integer
Declare Function addUNZIP_SetWindowHandle Lib [Ã”]aunzip32.dll[Ã”] (ByVal Hwnd As Long) As Integer
Declare Function addUNZIP_Test Lib [Ã”]aunzip32.dll[Ã”] (ByVal iFlag As Integer) As Integer
Declare Function addUNZIP_ToMemory Lib [Ã”]aunzip32.dll[Ã”] (ByVal lpStr As String, ByVal Uint32 As Long) As Integer
Declare Function addUNZIP_Update Lib [Ã”]aunzip32.dll[Ã”] (ByVal iFlag As Integer) As Integer
Declare Function addUNZIP_View Lib [Ã”]aunzip32.dll[Ã”] (ByVal bFlag As Integer) As Integer

Global Const azCOMPRESSION_MAXIMUM = &H3
Global Const azCOMPRESSION_MINIMUM = &H1
Global Const azCOMPRESSION_NONE = &H0
Global Const azCOMPRESSION_NORMAL = &H2

Global Const azSTRUCTURE_ABSOLUTE = &H2
Global Const azSTRUCTURE_NONE = &H0
Global Const azSTRUCTURE_RELATIVE = &H1

Global Const azOVERWRITE_ALL = &HB
Global Const azOVERWRITE_NONE = &HC
Global Const azOVERWRITE_QUERY = &HA

Global Const DATE_NEWEST = &H3
Global Const DATE_OLDEST = &H2
Global Const DATE_ORIGINAL = &H0
Global Const DATE_TODAY = &H1

Global Const azNEVER = &H0
Global Const azALWAYS = &HFF
Global Const azYES = &H1

Global Const azATTR_NONE = 0
Global Const azATTR_READONLY = 1
Global Const azATTR_HIDDEN = 2
Global Const azATTR_SYSTEM = 4
Global Const azATTR_ARCHIVE = 32
Global Const azATTR_ALL = 39

Global Const azLIBRARY_ADDZIP = 0
Global Const azLIBRARY_ADDUNZIP = 1

Global Const AM_SEARCHING = &HA
Global Const AM_ZIPCOMMENT = &HB
Global Const AM_ZIPPING = &HC
Global Const AM_ZIPPED = &HD
Global Const AM_UNZIPPING = &HE
Global Const AM_UNZIPPED = &HF
Global Const AM_TESTING = &H10
Global Const AM_TESTED = &H11
Global Const AM_DELETING = &H12
Global Const AM_DELETED = &H13
Global Const AM_DISKCHANGE = &H14
Global Const AM_VIEW = &H15
Global Const AM_ERROR = &H16
Global Const AM_WARNING = &H17
Global Const AM_QUERYOVERWRITE = &H18
Global Const AM_COPYING = &H19
Global Const AM_COPIED = &H1A
Global Const AM_ABORT = &HFF

Global Const azFT_ENCRYPTED = &H1
Global Const azFT_NOT_ENCRYPTED = &H0

Global Const azFT_BINARY = &H1
Global Const azFT_TEXT = &H0

Global Const azCM_DEFLATED_FAST = &H52
Global Const azCM_DEFLATED_MAXIMUM = &H51
Global Const azCM_DEFLATED_NORMAL = &H50
Global Const azCM_DEFLATED_SUPERFAST = &H53
Global Const azCM_IMPLODED = &H3C
Global Const azCM_NONE = &H0
Global Const azCM_REDUCED_1 = &H14
Global Const azCM_REDUCED_2 = &H1E
Global Const azCM_REDUCED_3 = &H28
Global Const azCM_REDUCED_4 = &H32
Global Const azCM_SHRUNK = &HA
Global Const azCM_TOKENISED = &H46
Global Const azCM_UNKNOWN = &HFF

Global Const azOW_NO = &H2
Global Const azOW_NO_TO_ALL = &H3
Global Const azOW_YES = &H0
Global Const azOW_YES_TO_ALL = &H1

Public Z As Integer

Function GetAction(cfrom As String) As Integer

GetAction = Val(GetPiece(cfrom, [Ã”]|[Ã”], 2))

End Function

Function GetFileCompressedSize(cfrom As String) As Long

GetFileCompressedSize = Val(GetPiece(cfrom, [Ã”]|[Ã”], 6))

End Function

Function GetFileCompressionRatio(cfrom As String) As Integer

GetFileCompressionRatio = Val(GetPiece(cfrom, [Ã”]|[Ã”], 7))

End Function

Function GetFileName(cfrom As String) As String

GetFileName = GetPiece(cfrom, [Ã”]|[Ã”], 4)

End Function

Function GetFileOriginalSize(cfrom As String) As Long

GetFileOriginalSize = Val(GetPiece(cfrom, [Ã”]|[Ã”], 5))

End Function

Function GetPercentComplete(cfrom As String) As Integer

GetPercentComplete = Val(GetPiece(cfrom, [Ã”]|[Ã”], 7))

End Function

Function GetPiece(from As String, delim As String, Index As Integer) As String

Dim Temp$
Dim Count As Integer
Dim where As Integer

Temp$ = from & delim
where = InStr(Temp$, delim)
Count = 0
Do While (where > 0)
Count = Count + 1
If (Count = Index) Then
GetPiece = Left$(Temp$, where - 1)
Exit Function
End If
Temp$ = Right$(Temp$, Len(Temp$) - where)
where = InStr(Temp$, delim)
Loop
If (Count = 0) Then
GetPiece = from
Else
GetPiece = [Ã”][Ã”]
End If
End Function

Sub Compacta(cArqCompactado As String, cArq As String)

Z = addZIP_SetCompressionLevel(azCOMPRESSION_MAXIMUM)
[Ã´]Z = addZIP_SaveStructure(SalvaDir) [Ã´]StoreFullPathName - azSTRUCTURE_ABSOLUTE
Z = addZIP_Include(cArq)
Z = addZIP_ArchiveName(cArqCompactado)
[Ã´]Z = addZIP_Delete(DeletarOrig)
Z = addZIP()
End Sub

Sub DesCompacta(cArqCompactado As String, cNomeArq As String, ExtrairPara As String, MontaDir As Boolean)

Z = addUNZIP_Overwrite(azOVERWRITE_ALL)
Z = addUNZIP_ArchiveName(cArqCompactado)
Z = addUNZIP_Include(cNomeArq)
Z = ad

RICATOM 02/07/2010 13:13:02
#346390

AlguÃ©m?

JSFF77 02/07/2010 14:20:36
#346395

Boa tarde.

Amigo,

Consegui resolver esse problema alterando o seguite na rotina Compacta():


Sub Compacta(cArqCompactado As String, cArq1 As String, cArq2 As String)
    [Ã´]Inicializa as bibliotecas do addZIP
    addZIP_Initialise
    addUNZIP_Initialise
    
    [Ã´]Compacta um ou mais arquivos no formato WinZip
    z = addZIP_SetCompressionLevel(azCOMPRESSION_MAXIMUM)
    [Ã´]z = addZIP_SaveStructure(azSTRUCTURE_ABSOLUTE) [Ã´]StoreFullPathName - azSTRUCTURE_ABSOLUTE
    
    z = addZIP_ArchiveName(cArqCompactado)
    z = addZIP_Include(cArq1)
    z = addZIP()
    
    z = addZIP_ArchiveName(cArqCompactado)
    z = addZIP_Include(cArq2)
    z = addZIP()
End Sub

e chamando-a assim:

Compacta [Ã”]Arquivo.zip[Ã”], [Ã”]C:\PASTA1\*.*[Ã”], [Ã”]C:\PASTA1\SUBPASTA1\*.*[Ã”]

é isso. Se os demais amigos encontrarem outra solução, postem aÃ!

AtÃ© mais.

JSFF77

RICATOM 02/07/2010 16:04:47
#346402

JSFF77 obrigado pela resposta, mas na verdade são várias subpastas com subpastas dentro delas

Deve ter algum comando que inclua as subpastas de forma automatica

RICATOM 05/07/2010 13:45:01
#346539

NinguÃ©m???

RICATOM 05/07/2010 15:29:20
#346555

Citação:
LVFIOROT escreveu: VC PODE CRIAR UMA ROTINA TIPO UMA RECURSIVA PARA VARRER TODOS OS DIRETORIOS E ARQUIVOS

Poderia ser mais claro?

Obs: preciso manter a estrutura das pastas e subpastas dentro do bkp.

RICATOM 05/07/2010 17:43:45
#346571

LVFIOROT, ficou perfeito, obrigado

Página única

Tópico encerrado , respostas não são mais permitidas

Voltar