IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Voir le flux RSS

informer

  1. Liste des fichiers du répertoire racine et des sous répertoire après dézippage

    par , 18/02/2021 à 19h12
    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
    ...
  2. Dezipper des fichiers

    par , 10/06/2018 à 09h20
    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\"
    ...

    Mis à jour 19/06/2018 à 23h26 par LittleWhite (Coloration du code)

    Tags: access, unzip, vba
    Catégories
    Sans catégorie