Découper fichiers et envoi par email en ligne de commande ?

Version imprimable

13/08/2019, 14h48
Quicksilvain

Découper fichiers et envoi par email en ligne de commande ?

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
13/08/2019, 20h37
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
13/08/2019, 22h49
Quicksilvain

Merci je regarde ça..

Le découpage(et compression) peut se faire auto :
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 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.

Merci beaucoup

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

Une idée ?

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
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

17/08/2019, 23h17
l_autodidacte

Citation:

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.
18/08/2019, 21h00
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)

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:

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

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

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:

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

21/08/2019, 18h38
l_autodidacte

Avant la ligne 51, ajoute objMessage.AddAttachment MyFile avec MyFile : le chemin complet vers le fichier à joindre.
21/08/2019, 22h51
Quicksilvain

il est pas déjà a la ligne 8 ?
21/08/2019, 23h20
l_autodidacte

Désolé, je l'ai pas vu :oops:
En exécutant le script, y a-t-il un message d'erreur ? Le corps du texte est-il correctement envoyé ?
22/08/2019, 09h55
Quicksilvain

1 pièce(s) jointe(s)

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

Pièce jointe 498885
22/08/2019, 11h55
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.
23/08/2019, 09h46
Quicksilvain

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