IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

fractionner le contenu d'un dossier en vue de compresser l'ensemble des données


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Février 2009
    Messages
    102
    Détails du profil
    Informations forums :
    Inscription : Février 2009
    Messages : 102
    Par défaut fractionner le contenu d'un dossier en vue de compresser l'ensemble des données
    Bonjour à tous,

    je suis à la recherche d'un code qui pourrait me permettre de fractionner le contenu d'un dossier (trop de fichiers ~ 5 Go)en vu de le compresser avec Winzip (outils imposé)

    L'idée est de déplacer la moitié du contenu du dossier source vers deux dossiers destinations.

    Merci d'avance à tous pour vos idées

  2. #2
    Expert confirmé
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2004
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Décembre 2004
    Messages : 6 132
    Par défaut
    Salut
    Code bidouiller avec les exemples de la FAQ VBScript
    Code : 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
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    Dim DossierSour ' Nom du répertoire à parcourir
    Dim DossierDest ' Nom générique du/des répertoires à créer
    Dim oFSO, oFl, oFld
    Dim Poids, PoidsMaxi, NumDossier
     
    PoidsMaxi = 24 ' en octet, poids maxi du dossier devant contenir les copies ou deplacements de fichiers
    NumDossier = 0 ' pour distinguer le/les dossiers à créer
    DossierSour = "G:\DDperso\PersoFrancis\Dossier source\" 'répertoire à fractionner
    DossierDest = DossierSour & "DossierAziper" 'répertoire générique destination des copies ou déplacements
     
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    If oFSO.FolderExists(DossierSour) Then
        If oFSO.GetFolder(DossierSour).Files.Count <> 0 Then
            'Au moins un fichier dans le dossier source, création du 1° dossier destination
            Set oFld = oFSO.CreateFolder(DossierDest & NumDossier)
            Set oFld = Nothing
        End If
        For Each oFl In oFSO.GetFolder(DossierSour).Files
            If Poids + oFl.Size > PoidsMaxi Then
                'Création d'un nouveau dossier destination
                NumDossier = NumDossier + 1
                Set oFld = oFSO.CreateFolder(DossierDest & NumDossier)
                Set oFld = Nothing
                Poids = 0
            End If
            Poids = Poids + oFl.Size ' drapeau pour le suivi de création de nouveau dossier destination
            'Copie du fichier source dans le dossier destination
            'oFSO.CopyFile DossierSour & oFl.Name, DossierDest & NumDossier & "\" & oFl.Name, True
            'ou
            'déplacement du fichier source dans le dossier destination
            oFSO.MoveFile DossierSour & oFl.Name, DossierDest & NumDossier & "\" & oFl.Name
        Next
    End If
    Set oFSO = Nothing
    Pour le zipage, voir dans la FAQ VBScript Comment compresser un dossier ?
    :whistle:pourquoi pas, pour remercier, un :plusser: pour celui/ceux qui vous ont dépannés.
    saut de ligne
    OOOOOOOOO👉 → → Ma page perso sur DVP ← ← 👈

  3. #3
    Membre confirmé
    Inscrit en
    Février 2009
    Messages
    102
    Détails du profil
    Informations forums :
    Inscription : Février 2009
    Messages : 102
    Par défaut fractionner le contenu d'un dossier en vue de compresser l'ensemble des données
    Merci pour votre réponse ProgElecT

    après adaptation à mes données et récupération de la procédure de zip dans la FAQ VBScript mon script fonctionne. Merci beaucoup

    Cordialement

    PAB/31/SAB

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 3
    Dernier message: 23/09/2011, 12h40
  2. ajouter le contenu d'un dossier ftp à une bdd
    Par lioudow dans le forum Requêtes
    Réponses: 2
    Dernier message: 16/11/2005, 19h46
  3. Lister le contenu d'un dossier dans une ListBox
    Par zidenne dans le forum Langage
    Réponses: 2
    Dernier message: 25/10/2005, 12h51
  4. [OmniMark 5] Copier contenu d'un dossier dans autre dossier
    Par Hoegaarden dans le forum Autres langages
    Réponses: 3
    Dernier message: 24/08/2005, 16h59
  5. afficher le contenu d'un dossier distant
    Par roots_man dans le forum ASP
    Réponses: 3
    Dernier message: 04/02/2005, 17h23

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo