Discussion :

[Quicksilvain]

Salut a tous,

J'ai dans un dossier plusieurs vidéos (7GO) et j'aimerais découper toutes ces vidéos les unes après les autres en plusieurs fichiers de 25MB et envoyer ces fichiers de 25MB les une après les autres par mail et tout cela en ligne de commande (vbs ou autres)

Après vous c'est faisable ?

Merci

[l_autodidacte]

Pour commencer, essaie avec cette Contribution.
Pour le découpage, tu peux utiliser Winrar par exemple tout en spécifiant(en tapant) la taille de sortie en octets(liste déroulante tout en bas intitulée Taille des volumes). Ne pas oublier de cocher la case Créer une archive SFX

[Quicksilvain]

Merci je regarde ça..

[l_autodidacte]

Le découpage(et compression) peut se faire auto :

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
Option Explicit 
 
Const CheminRar = "H:\Winrar\Rar.exe"  ' Adapter ce chemin
Dim fso, oFold, WS, SourceFolder, Fichier, Commande
Dim oArgs, DestFolder, FileName, ArchiveName 
 
Set oArgs = WScript.Arguments
Set fso = CreateObject("Scripting.FileSystemObject") 
Set WS  = CreateObject("Wscript.Shell") 
 
If oArgs.Count = 0 Then
    SourceFolder = "C:\tmp\"  ' Adapter le chemin
Else 
    SourceFolder = oArgs(0) & "\"
End If
 
Set oFold = fso.GetFolder(SourceFolder)
DestFolder = "C:\Temp\"  ' Adapter le chemin
 
For Each Fichier In oFold.Files
  FileName = Fichier.Name
  ArchiveName = fso.GetBaseName(FileName)
  ' Ligne de commande pour le découpage :
  Commande = "CMD.EXE /C " & CheminRar & " a -v10m -sfx " & DestFolder & ArchiveName & " " & SourceFolder & FileName
  ' CheminRar : Chemin complet pour Rar.exe(programme console)
  ' a : ajoute les fichiers à l'archive en cours
  ' -v10m : Crée des volumes de 10 Mo, on peut alors le remplacer par -v25m pour avoir 25 Mo
  ' -sfx : Crée une archive autoextractible, pas besoin de mettre l'extension
  ' DestFolder : Dossier cible, ArchiveName : nom du fichier archive
  ' SourceFolder : Dossier source des fichiers à découper(compresser)
  ' FileName : Nom du fichier à ajouter  
  WS.Run Commande, 1, True 
Next

Pour ne pas avoir à taper à chaque fois le chemin des fichiers à découper, il suffit d'enregistrer ce code sous le nom Decoupe.vbs par exemple puis faire Glisser / Déposer le dossier source sur le fichier vbs qu'on vient de créer, autrement le dossier par défaut sera "C:\Tmp\" ou son équivalent si on l'a modifié.
Une fois l'opération de découpage commencée, on ne peut pas arrêter le processus sauf si, dans le gestionnaire des tâches, on arrête WScript.exe; mais l'opération en cours continuera jusqu'à la fin du fichier en cours de découpage.

[Quicksilvain]

Merci beaucoup

J'ai fais les modifs nécessaires mais rien ne se passe..

Une idée ?

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
Option Explicit 
 
Const CheminRar = "C:\Program Files (x86)\WinRAR\WinRAR.exe"  ' Adapter ce chemin
Dim fso, oFold, WS, SourceFolder, Fichier, Commande
Dim oArgs, DestFolder, FileName, ArchiveName 
 
Set oArgs = WScript.Arguments
Set fso = CreateObject("Scripting.FileSystemObject") 
Set WS  = CreateObject("Wscript.Shell") 
 
If oArgs.Count = 0 Then
    SourceFolder = "C:\Users\Silvain\Desktop\tmp\"  ' Adapter le chemin
Else 
    SourceFolder = oArgs(0) & "\"
End If
 
Set oFold = fso.GetFolder(SourceFolder)
DestFolder = "C:\Users\Silvain\Desktop\Temp\"  ' Adapter le chemin
 
For Each Fichier In oFold.Files
  FileName = Fichier.Name
  ArchiveName = fso.GetBaseName(FileName)
  ' Ligne de commande pour le découpage :
  Commande = "CMD.EXE /C " & CheminRar & " a -v10m -sfx " & DestFolder & ArchiveName & " " & SourceFolder & FileName
  ' CheminRar : Chemin complet pour Rar.exe(programme console)
  ' a : ajoute les fichiers à l'archive en cours
  ' -v25m : Crée des volumes de 10 Mo, on peut alors le remplacer par -v25m pour avoir 25 Mo
  ' -sfx : Crée une archive autoextractible, pas besoin de mettre l'extension
  ' DestFolder : Dossier cible, ArchiveName : nom du fichier archive
  ' SourceFolder : Dossier source des fichiers à découper(compresser)
  ' FileName : Nom du fichier à ajouter  
  WS.Run Commande, 1, True 
Next

[l_autodidacte]

J'ai fais les modifs nécessaires mais rien ne se passe..

Bien sûr, car la constante n'est pas la bonne. Il fallait mettre :
Const CheminRar = "C:\Program Files (x86)\WinRAR\RAR.exe".
Il faut avoir Rar.exe (programme console) et non Winrar.exe, programme Win 32 ou 64.