Descomprimir 3 archivos diferentes con el mismo nombre

27/09/2004 - 17:32 por osalazarg | Informe spam

Alguien me podria ayudar con este problemita por Favor.

Descomprimir 3 archivos diferentes con el mismo nombre a diferentes rutas.

Con la ayuda de hector me ayudo con este codigo, pero ahora tengo la
necesidad un poquito diferente:
Como puedo modificar el siguiente codigo para hacer lo siguiente:

Necesito descompactar diariamente, estos archivos van cambiando de dia
ejemplo: RS260904.ZIP, RS270904.ZIP, RS280904.ZIP, RS290904.ZIP
.y asi dia con dia, Estos tres archivos en tres direcciones
diferentes, pero con el mismo nombre:

Ruta
en donde esta el archivo Archivo

S:\ RS270904.ZIP
T:\ RS270904.ZIP
U:\ RS270904.ZIP

Destino
en que se deberan de descompactar

C:\SIEF01L
C:\SIEF02VL
C:\SIEFBAS1

Osea

Ruta Archivo Destino

S:\ RS270904.ZIP C:\SIEF01L

Codigo:

Sub Descomprimir_ver_soluciones()
Dim EnDirectorio As String: EnDirectorio = ActiveWorkbook.Path
Dim Descomprime As String: Descomprime = EnDirectorio & "\unzip.exe -o "
Dim EsteArchivo As String: EsteArchivo = EnDirectorio & "\FW" &
Format(Date, "ddmmyy") & ".zip -d "
Dim Comando As String: Comando = Descomprime & EsteArchivo & EnDirectorio
Shell Environ("comspec") & " /c " & Comando
End Sub

Por su ayuda por anticipado Muchas Gracias.

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

Abrir archivos lotus 1-2-3 con Excel XP

Leer las respuestas

#1 Héctor Miguel

28/09/2004 - 09:13 | Informe spam

hola, sago !

Descomprimir 3 archivos diferentes con el mismo nombre a diferentes rutas [...]
Ruta Archivo Destino
S:\ RS270904.ZIP C:\SIEF01L
T:\ RS270904.ZIP C:\SIEF02VL
U:\ RS270904.ZIP C:\SIEFBAS1 [...]

siguiendo con la misma ubicacion de la utileria [unzip] en el directorio del libro 'activo'...
puedes construir dos matrices [mismos elementos] para los directorios 'de_donde' y 'a_donde'
y hacer un 'bucle' para 'construir' el comado con cada uno [mismo archivo -y 'mecanismo'-]

si cualquier duda [o... 'problemas']... ¿comentas?
saludos,
hector.
en un modulo de codigo 'normal' ==Sub Descomprimir_Una_Solucion()
Dim Del_Directorio, Al_Directorio, Archivo As String, X As Integer, _
Descomprime As String, EsteArchivo As String, Comando As String
Del_Directorio = Array("s:\", "t:\", "u:\")
Al_Directorio = Array("c:\sief01l", "c:\sief02vl", "c:\siefbas1")
Archivo = "RS" & 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

Responder a este mensaje

#2 osalazarg

29/09/2004 - 02:10 | Informe spam

Muchas Gracias Héctor Miguel.

Saludos.
Héctor Miguel wrote:

hola, sago !

> Descomprimir 3 archivos diferentes con el mismo nombre a diferentes rutas

[...]

> Ruta Archivo Destino
> S: RS270904.ZIP C:SIEF01L
> T: RS270904.ZIP C:SIEF02VL
> U: RS270904.ZIP C:SIEFBAS1 [...]

siguiendo con la misma ubicacion de la utileria [unzip] en el directorio del

libro 'activo'...

puedes construir dos matrices [mismos elementos] para los directorios

'de_donde' y 'a_donde'

y hacer un 'bucle' para 'construir' el comado con cada uno [mismo archivo -y

'mecanismo'-]

si cualquier duda [o... 'problemas']... ¿comentas?
saludos,
hector.
en un modulo de codigo 'normal' ==> Sub Descomprimir_Una_Solucion()
Dim Del_Directorio, Al_Directorio, Archivo As String, X As Integer, _
Descomprime As String, EsteArchivo As String, Comando As String
Del_Directorio = Array("s:", "t:", "u:")
Al_Directorio = Array("c:sief01l", "c:sief02vl", "c:siefbas1")
Archivo = "RS" & 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

Responder a este mensaje

#3 Héctor Miguel

29/09/2004 - 06:16 | Informe spam

;)

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida