Forums Últimos mensajes - Powered by IBM
 

descompactar en otros directorios

07/12/2004 - 20:50 por osalazarg | Informe spam
Espero que alguien me pueda ayudar por favor.

Como pedo modificar la siguiente macro que este foro me ayudaron a
hacerla, ahora no puedo modificarla para que me tome del mismo directorio
el archivo y lo descompacte en otros directorios


Sub Descomprimir_FW_Solucion()
Dim Del_Directorio, Al_Directorio, Archivo As String, X As Integer,
Descomprime As String, EsteArchivo As String, Comando As String
Del_Directorio = Array("C:\SIEF01L\", "C:\SIEF01L\", "C:\SIEF01L\")
Al_Directorio = Array("c:\sief01l", "c:\sief02vl", "c:\siefbas1")
Archivo = "FW" & Format(Date, "ddmmyy") & ".zip -d "
Descomprime = ActiveWorkbook.Path & "\unzip.exe -o "
For X = 0 To UBound(Del_Directorio)
EsteArchivo = Del_Directorio(X) & Archivo
Comando = Descomprime & EsteArchivo & Al_Directorio(X)
Shell Environ("comspec") & " /c " & Comando
Next
End Sub

Por su ayuda por anticipado muchas gracias.
 

Leer las respuestas

#1 Héctor Miguel
07/12/2004 - 23:40 | Informe spam
hola, sago !

... modificar la siguiente macro
... para que me tome del mismo directorio el archivo y lo descompacte en otros directorios
Sub Descomprimir_FW_Solucion()
Dim Del_Directorio, Al_Directorio, Archivo As String, X As Integer,
Descomprime As String, EsteArchivo As String, Comando As String
Del_Directorio = Array("C:\SIEF01L\", "C:\SIEF01L\", "C:\SIEF01L\")
Al_Directorio = Array("c:\sief01l", "c:\sief02vl", "c:\siefbas1")
Archivo = "FW" & Format(Date, "ddmmyy") & ".zip -d "
Descomprime = ActiveWorkbook.Path & "\unzip.exe -o "
For X = 0 To UBound(Del_Directorio)
EsteArchivo = Del_Directorio(X) & Archivo
Comando = Descomprime & EsteArchivo & Al_Directorio(X)
Shell Environ("comspec") & " /c " & Comando
Next
End Sub



1° 'deja' la declaracion de la variable 'Del_Directorio' como cadena de texto [en lugar de 'variant' -por omision-]
Dim Del_Directorio As String, Al_Directorio, ... [... etc. ...]
2° 'dejalo' asignado a una cadena de texto CON el directorio 'unico' [en lugar de asignarlo a una matriz]
Del_Directorio = "C:\Ruta y\Carpetas\Adicionales\"
3° 'llena' la matriz 'Al_Directorio' CON los 'otros' directorios
4° modifica el ciclo 'For X... Next' para que 'cicle' en 'Al_Directorio' [en lugar de 'Del_Directorio']
For X = 0 To UBound(Al_Directorio)
=> 'el resto del codigo'... puede seguir igual...

¿comentas?
saludos,
hector.

Preguntas similares