Donkey
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
Postada em 23/07/2008 18:55 hs
Tem codigo para vc mesmo registrar se for o caso....
Olhe na seção dicas... normalmente não precisa ficar em system32, basta estar na pasta do seu executavel q nao vai dar problema....
t+
|
|
|
|
|
|
lramos7
|
BARUERI
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 23/07/2008 20:42 hs
Entao nao ha necessidade de registrar nao.... basta pelo menos existir as dlls em app.path Depois me fala se funciona. abs T+ |
|
|
|
lramos7
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 24/07/2008 09:14 hs
elas podem ficar no app.path sem precisar registrar. ok? Depois me diga o resultado. T+ |
|
|
|
|
|
Postada em 24/07/2008 22:52 hs
lramos7, não funcionou, deu um problema no modulo ao compila!
O erro foi: Sub or Function not defined
Sub Compacta(cArqCompactado As String, cArq As String)
'Compacta um ou mais arquivos no formato WinZip
Z = addZIP_SetCompressionLevel(azCOMPRESSION_MAXIMUM)
Sleep (100) <<<< FOI AQUI O ERRO
DoEvents
Z = addZIP_SaveStructure(azSTRUCTURE_RELATIVE)
Sleep (100)
DoEvents
Me ajude, T+
|
|
|
|
gugump
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 24/07/2008 23:23 hs
ahhh ja consegui compila!!!
Agora nao consigo extrair os arquivos!!!
DesCompacta "zip.zip", "*.*", "", False
Tento assim, quero descompactar no mesmo diretorio!!
Já me diz se tem um jeito de descompactar todos os arquivos .zip da pasta, não somente 1 arquivos, pois meu updater baixa varios arquivos .zip e com nomes diferentes então nao da pra por varios DesCompacta pois alguns arquivos vão mudar de nome!
E tem como por uma progressbar ou uma label falando a porcentagem que falta para descompactar tudo?
T+
|
|
|
|
|
|
Postada em 25/07/2008 09:11 hs
'Bom dia! 'Então, eu uso estas rotinas para enviar e receber arquivos de um FTP. Para descompactar uso 'esta parte de programação, onde : If UCase(Right(cFileO, 3)) = "ZIP" Then
DesCompacta "Path ArqCompactado", "Nm arquivo.zip", "Path ArqDescompactado", False
ApagaArquivo "Path ArqCompactado" End If 'espero que tenha te ajudado.rss me avise o resultado, ok? 'T+ |
|
|
|
