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.

[Quicksilvain]

Merci, j'ai essayé mais rien ne se passe..
J'ai mis les vidéos a découpé dans le dossier "tmp" qui se trouve sur mon bureau, et après avoir lancer le vbs les vidéos ne sont pas découper dans le dossier de destination "Temp" (sur le bureau)

[l_autodidacte]

C'est fort possible à cause des espaces dans le chemin de Rar.exe.

pour cela, on va faire autrement : On déclare CheminRar comme étant une variable qu'on modifiera par la suite

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
35
Option Explicit 
 
Dim CheminRar 
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") 
 
CheminRar = fso.GetFile("C:\Program Files (x86)\WinRAR\RAR.exe").ShortPath
 
If oArgs.Count = 0 Then
    SourceFolder = "C:\Users\Silvain\Desktop\tmp\" 
Else 
    SourceFolder = oArgs(0) & "\"
End If
 
Set oFold = fso.GetFolder(SourceFolder)
DestFolder = "C:\Users\Silvain\Desktop\Temp\"
 
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 fivhier archive
  ' SourceFolder : Dossier source des fichiers à découper(compresser)
  ' FileName : Nom du fichier à ajouter  
  WS.Run Commande, 1, True 
Next

[Quicksilvain]

Désolé du retard.. ça fonctionne parfaitement..merci..

J'utilise ce code pour envoyer un email, savez vous comment je pourrais faire pour joindre ces fichiers découper (25mo) un après l'autre ?

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
On Error Resume Next
Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory. 
Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network). 
Const cdoAnonymous = 0 'Do not authenticate
Const cdoBasic = 1 'basic (clear-text) authentication
Const cdoNTLM = 2 'NTLM
sFilePath="C:\fichier-découper.rar" 'Path of the Attached File
Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = "Downloads.." 
objMessage.From = """Me"" <Mymail@gmail.com>" 'change this to yours
objMessage.To = "aaaaaaaa@gmail.com" 'change this To
objMessage.AddAttachment sFilePath   
'==This section provides the configuration information for the remote SMTP server.
 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
 
'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" 'SMTP SERVER of GMAIL must be inchanged
 
'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
 
'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "aaaaaaa@gmail.com" 'change this to yours
 
'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "0000000" 'change this to yours
 
'Server port (typically 25 and 465 in SSL mode for Gmail)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 'don't change this
 
'Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
 
'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
 
objMessage.Configuration.Fields.Update
 
'==End remote SMTP server configuration section==
 
objMessage.Send
 
If Err.Number <>0 Then
			MsgBox Err.Description,16,"Erreur"
			msgbox "le mail n'a pas pu être envoyé !",16,"Information"
		Else
 
	End If
		On Error GoTo 0

[l_autodidacte]

Avant la ligne 51, ajoute objMessage.AddAttachment MyFile avec MyFile : le chemin complet vers le fichier à joindre.

[Quicksilvain]

il est pas déjà a la ligne 8 ?

[l_autodidacte]

Désolé, je l'ai pas vu
En exécutant le script, y a-t-il un message d'erreur ? Le corps du texte est-il correctement envoyé ?

[Quicksilvain]

Salut, Je l'ai pas utiliser depuis un bon moment et effectivement il y a une erreur..

[l_autodidacte]

Il y a deux possibilités(si ce n'est pas plus) pour le problème qui se pose :
La taille du fichier à envoyer est trop grande ou bien
La configuration du serveur n'est la bonne.

[Quicksilvain]

Ok merci, je vais me creusé la tête