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

Salut
Code bidouiller avec les exemples de la FAQ VBScript

Code:

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 ?

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