Question : Comment défaire la fermeture éclair d'un dossier simple à partir d'un sous-répertoire fermé la fermeture éclair

De chers experts, le

after recherchant un looooong, long temps, je suis finalement parvenu à écrire le code pour défaire la fermeture éclair d'UN DOSSIER SIMPLE d'une fermeture éclair file.

However, quand j'ai un dossier de FERMETURE ÉCLAIR avec des sous-répertoires, ce code ne fait pas ma question de work.

So est, peut vous montrer (ou récrire le mon) le code d'échantillon ainsi je pourra défaire la fermeture éclair d'un dossier simple (appelé l'A.TXT), à partir d'un sous-répertoire fermé la fermeture éclair ?

Here est comment recréer ma situation spécifique : >

• create de " balle " de class= du
  
  
  • put de " balle " de class= de C:\TEMP
  
  
  • paste de " balle " de class= de directory
  
  

• try pour extraire A.TXT

Thank vous pendant votre temps !
Keimpe Wiersma class= > " clair " de

> de " codeSnippet " de class= de

class= " lineNumbers " de

class= de

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

id= " codeSnippet797401 " class= " de ' UnzipTEST « C:\TEMP\ZIPFILE.ZIP », « C:\TEMP » que CECI FONCTIONNE 'UnzipTEST « C:\TEMP\ZIPFILE.ZIP », « C:\TEMP », « SUBDIR » que CECI FONCTIONNE 'UnzipTEST « C:\TEMP\ZIPFILE.ZIP », « C:\TEMP », « A.TXT » que CECI NE FONCTIONNE PAS 'UnzipTEST « C:\TEMP\ZIPFILE.ZIP », « C:\TEMP », « SUBDIR \ A.TXT » que CECI NE FONCTIONNE PAS 'UnzipTEST « C:\TEMP\ZIPFILE.ZIP », « C:\TEMP », » \ SUBDIR \ A.TXT " que CECI NE FONCTIONNE PAS 'UnzipTEST « C:\TEMP\ZIPFILE.ZIP », « C:\TEMP », « C:\TEMP\SUBDIR\A.TXT » que CECI NE FONCTIONNE PAS UnzipTEST secondaire (strZIPfile comme corde, strOutputFolder comme corde, strSingleFileName facultatif comme corde) Faible FSO comme objet Faible oApp comme objet 'Extraire les dossiers dans la chemise de création récente Placer l'oApp = le CreateObject (« Shell.Application ») Si "" de <> de strSingleFileName alors oApp.Namespace ((strOutputFolder)).CopyHere oApp.Namespace ((strZIPfile)). Items.item ((strSingleFileName)) Autrement oApp.Namespace ((strOutputFolder)).CopyHere oApp.Namespace ((strZIPfile)). Articles Finir si Finir le sous-marin

class= " lastRow de

>Attachments de " nom " de class= de

class= " valeur " de

>