Cuestión : Cómo desabrochar un solo archivo de un sub-directório relampagado

¿Los estimados expertos,

after que buscaba para un looooong, tiempo largo, finalmente he manejado escribir código para desabrochar UN SOLO ARCHIVO de un cierre relámpago file.

However, cuando tengo un archivo de CIERRE RELÁMPAGO con los sub-directórios, este código no hago mi pregunta de work.

So soy, puedo usted demostrar (o reescribir mi) código de la muestra así que yo podrá desabrochar un solo archivo (llamado A.TXT), de un sub-directório relampagado?

Here es cómo reconstruir mi situación específica: ¡>

create de la " bala " del class= del
- put de la " bala " del class= de C:\TEMP
- paste de la " bala " del class= de directory

try para extraer A.TXT

Thank usted por su tiempo!
Keimpe Wiersma class= > " claro " del

> del " codeSnippet " del class= del

class= " lineNumbers " del

class= del

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

id= " codeSnippet797401 " class= " del

 ' UnzipTEST “C:\TEMP\ZIPFILE.ZIP”, “C:\TEMP” que ESTO TRABAJA
'UnzipTEST “C:\TEMP\ZIPFILE.ZIP”, “C:\TEMP”, “SUBDIR” que ESTO TRABAJA
'UnzipTEST “C:\TEMP\ZIPFILE.ZIP”, “C:\TEMP”, “A.TXT” que ESTO NO TRABAJA
'UnzipTEST “C:\TEMP\ZIPFILE.ZIP”, “C:\TEMP”, “SUBDIR \ A.TXT” que ESTO NO TRABAJA
'UnzipTEST “C:\TEMP\ZIPFILE.ZIP”, “C:\TEMP”,” \ SUBDIR \ A.TXT " que ESTO NO TRABAJA
'UnzipTEST “C:\TEMP\ZIPFILE.ZIP”, “C:\TEMP”, “C:\TEMP\SUBDIR\A.TXT” que ESTO NO TRABAJA
UnzipTEST secundario (strZIPfile como secuencia, strOutputFolder como secuencia, strSingleFileName opcional como secuencia)
    FSO dévil como objeto
    oApp dévil como objeto

    'Extraer los archivos en la carpeta creada recientemente
    Fijar el oApp = CreateObject (“Shell.Application”)

    Si "" del <> del strSingleFileName entonces
        oApp.Namespace ((strOutputFolder)).CopyHere oApp.Namespace ((strZIPfile)). Items.item ((strSingleFileName))
    
        oApp.Namespace ((strOutputFolder)).CopyHere oApp.Namespace ((strZIPfile)). Artículos
    Terminar si
        
Terminar el submarino

class= " lastRow del

>Attachments del " nombre " del class= del class= " valor " del

del >

Cuestión : Cómo desabrochar un solo archivo de un sub-directório relampagado

Respuesta : Cómo desabrochar un solo archivo de un sub-directório relampagado

Su código trabaja muy bien para mí que esté extrayendo un solo del cierre relámpago en una carpeta secundaria. Usted puede ser que quiera comprobar si usted tiene permisos para copiar el archivo a la localización o cerciorarse de el archivo no es bloqueado o que es utilizado por otro uso.