Messages des blogs récents

Je partage

Pré-requis:

• Le répertoire source (vRepSource) contenant les fichiers Zip est sélectionné via une boite de dialogue (Application.FileDialog(msoFileDialogFolderPicker)
• Le répertoire cible dans lequel sont décompressés les fichiers Zip (vRepCible) écrit en dur
• Le niveau d'arborescence provoque un décalage de colonne
• Les données sont ensuite copiées dans un autre fichier pour les afficher dans un treeView
• Le traitement est lancé sur l'événement click

...

Voici une routine qui fonctionne avec comme précision majeure => Doubler les parenthèses pour Namespace Source ICI

oShell.Namespace((pathFile)).CopyHere oShell.Namespace((pathFile & NomFichier)).Items

Avec simple parenthèse => Génération d'un message d'erreur

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Function test()
 
    Dim oShell As Object
    Dim pathFile As String
 
    'Récuperation de la liste des fichiers
    pathFile = "C:\folder\"

...