Olá, galera

 

Alguém tem uma ocx ou dll que compacta arquivos e permite dividir em mais de um disquete o arquivo compactado (como o WinZip)???

 

Estou usando a dll AZIP32.dll (peguei em um projeto aqui no site) mas ela não divide em disquetes, grava o primeiro mas não solicita o segundo, da a instalação por encerrada e retorna erro desconhecido...

 

Agradeço qualquer ajuda

 

Elieser Carlos Topassi

São José do Rio Preto, SP

teste este ai, qualquer coisa me fala:

 

If MsgBox("Deseja continuar o Backup???", vbYesNo, "ATENÇÃO USUÁRIO") = vbYes Then
            If Dir("C:Arquivos de ProgramasWinZipWINZIP32.EXE") = "" Then
                Beep
                MsgBox "Não foi possivel encontrar o Winzip, entre em contato com o responsável pelo sistema!!!", vbInformation, "ATENÇÃO USUÁRIO"
                'localiza o winzip
            Else
                'verifica se existe disquete no drive A
                On Error GoTo ErroDisco
                       
                Dim TestaDisco As String
                       
                'teste se existe disco na unidade A
                If TestaDisco = Dir("A:") = True Then
                End If
ErroDisco:
                'esse erro 52 é o que ocorre quando falta disquete no drive
                If Err.Number = 52 Then
                MsgBox "Cadê o disquete???" & Chr(13) & "" & Chr(13) & "Insira o disquete no Drive A:...", vbInformation, "ATENÇÃO USUÁRIO"
               
                'cancela a operacao
                Exit Sub
                End If

                'inicia o processo de backup no drive A
                Dim Compri
                Dim fecha
                Dim Archivo
                Dim Counter As Integer
                Dim Workarea(250) As String
                fecha = Date$
                Dim DBpath As String
                DBpath = Trim(App.Path & "Pat01.mdb")
                Archivo = "Backup_BD_(Pat01)_" & Format(Now, "dd_mm_yyyy")
                Compri = Shell("C:Arquivos de programasWinZipWINZIP32.EXE -a -en A:" & Archivo & " c:arquiv~1PatrimonioPat01.mdb")
            End If

esse codigo faz backup e quando ha a necessidade de outro disco ele solicita, teste ai...

 

Isso roda silencioso???

 

Meu maior problema em usar o winzip (ou arj) é rodar silencioso, ou seja, que os erros sejam tratados pela minha aplicação, e não pelo winzip..., e que a minha aplicação solicitasse o outro disquete, e não o winzip... etc...

 

Outra coisa: o winzip não é gratuito.. não quero cobrar os 19,90 do cliente, mas tambem não posso instalar uma cópia não registrada na maquina dele sem autorização... ai eu danço... essa realmente não me serve. Tem que ser algo gratuito!

 

Espero mais sugestões...

 

Elieser Topassi

tem no www.supersdownloads.com.br

programas free para compactaçao.

pois a descompactaçao o proprio windows faz sozinho. como na instalaçao do windows os arquivos estao compactados.

Você poderá utilizar uma ocx chamada Xceed eu tenho ela, se vc quiser me contacte

 

MSN Messenger invictor@msn.com