Tengo un método que descomprime ficheros ZIP, pero tengo un problema cuando intento descomprimir un fichero en mi servidor de datos.
Método:
Public Function descomprimir(rutaZip As String, Optional carpetaDestino As String = "")
If carpetaDestino = String.Empty Then
carpetaDestino = "unzip"
End If
Dim shObj As Object = Activator.CreateInstance(Type.GetTypeFromProgID("Shell.Application"))
Dim destino As String = Path.GetDirectoryName(rutaZip) & "\" & carpetaDestino
'Crea el directorio donde se van a extraer los archivos
IO.Directory.CreateDirectory(destino)
Dim output As Object = shObj.NameSpace((destino))
Dim input As Object = shObj.NameSpace((rutaZip))
'Extrae los elementos del archivo zip
output.CopyHere((input.Items), 4)
Return destino
End Function
La siguiente línea me devuelve Nothing
solo si el archivo no existe (en teoría):
Dim input As Object = shObj.NameSpace((rutaZip))
Pero he intentando a poner la anterior línea en un If File.Exists(rutaZip) ...
y siempre entra porque detecta que si que existe el fichero. (Ya sea en un .zip
del servidor de datos, o del ordenador en local)
Ejemplo de ruta del servidor de datos:
\\ServerData\data\docs\archivo.zip
Ejemplo de ruta en local:
C:\Users\so\Desktop\archivo.zip
(Acepto sugerencias sobre cómo hacerlo de manera más sencilla). Uso NET 4.0