gugump
|
IÇARA
SC - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 25/07/2008 13:57 hs
Olá, esse comando vai descompactar todos os arquivos de extensão ZIP? Eu preciso que descompacte TODOS os arquivos com extensão ZIP!
E vi que no modulo tem um tão de PORCENTAGEM DA DESCOMPACTAÇÃO, como eu adiciono isso?
HEHEH, T+, você está me ajudando muito! Obrigado 
|
|
|
|
|
|
lramos7
|
BARUERI
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 25/07/2008 14:39 hs
Então, ele irá descompactar todos se no parametro vc passar "*.ZIP" agora se vc passar somente o nome de um arquivo ele fará apenas ele. A porcentagem eu vou dar uma olhada ai te falo, não estou me lembrando dos procedimentos.... qq coisa da um grito ai...rsss T+
Leandro Ramos msn: nanoenana@hotmail.com
|
|
|
|
gugump
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 25/07/2008 17:33 hs
Xiii cara, to tentando assim:
Dim cFileO
If UCase(Right(cFileO, 3)) = "ZIP" Then
DesCompacta "", "*.zip", "", False
Agora não sei aonde coloco *.zip, aonde coloco o diretorio para extrair, e tem outro que não sei para que serve!!! >.<"
Esse maldito não extrai não!!! ahuahua
Você tem E-mail ou MSN? 
|
|
|
|
lramos7
|
BARUERI
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 28/07/2008 13:52 hs
Se vc estiver usando este código realemente esta errado...rsss pois esta faltando vc passar o caminho para descompactar. DesCompacta "<Path do Arquivo Zip>", "*.zip", "<Path onde ira descompactar>", False abs
Leandro Ramos msn: nanoenana@hotmail.com
|
|
|
|
