Voir le flux RSS

informer

Dezipper des fichiers

Noter ce billet
par , 10/06/2018 à 08h20 (38 Affichages)
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
8
9
10
11
12
13
14
15
16
17
18
19
Function test()
 
    Dim oShell As Object
    Dim pathFile As String
 
    'Récuperation de la liste des fichiers
    pathFile = "C:\folder\"
    NomFichier = Dir(pathFile & "*.zip")
 
    'On passe d'un fichier excel a l'autre
    Set oShell = CreateObject("Shell.Application")
    Do While NomFichier <> ""
        oShell.Namespace((pathFile)).CopyHere oShell.Namespace((pathFile & NomFichier)).Items '  -->>> TRES IMPORTANT : doubler les parenthèses sinon erreur
        NomFichier = Dir
    Loop
 
    Set oShell = Nothing
 
End Function

Ajouter dans le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Name pathFile & file  As newPathFile & newFilenName  -> pour déplacer et renommer le fichier
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Kill pathFile & nameFile -> pour supprimer un fichier

Envoyer le billet « Dezipper des fichiers » dans le blog Viadeo Envoyer le billet « Dezipper des fichiers » dans le blog Twitter Envoyer le billet « Dezipper des fichiers » dans le blog Google Envoyer le billet « Dezipper des fichiers » dans le blog Facebook Envoyer le billet « Dezipper des fichiers » dans le blog Digg Envoyer le billet « Dezipper des fichiers » dans le blog Delicious Envoyer le billet « Dezipper des fichiers » dans le blog MySpace Envoyer le billet « Dezipper des fichiers » dans le blog Yahoo

Mis à jour Hier à 22h26 par LittleWhite (Coloration du code)

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

Commentaires