Discussion :

[fhesser]

Bonjour,
Je souhaite convertir tous mes CD enregistrés de wave en mp3 pour les emporter en vacances.
J'ai réalisé un script qui scan tous les répertoires et sous répertoires et liste les fichiers wave pour les convertir (en gardant l'original wave)

Je n'arrive pas à passer une variable dans un script VBScript.
Ma commande manuelle passe très bien:

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
 
'On Error Resume Next
 
Const outFile = "file.txt"
Path = "D:\Musique"
Const wav = ".wav"
 
 
Dim oFilesys
Set oFilesys = CreateObject("Scripting.FileSystemObject")
Set oFiletxt = oFilesys.CreateTextFile(outFile,True)
Set Ws = CreateObject("Wscript.Shell")
 
oFiletxt.WriteLine(List(path))
oFiletxt.Close
 
MsgBox "Script Termine !"
Ws.Run outFile
 
Function List(directory)
On Error Resume next
    Set fsoFolder = CreateObject("Scripting.FileSystemObject")
    Set folder = fsoFolder.GetFolder(directory)
    Set subfolders = folder.SubFolders
    Set subfiles = folder.Files
 
    For each objFile in subfiles
 
		titrewav = objFile.Path
		if InStr(titrewav,".wav") > 0 then
 
			oFiletxt.WriteLine(titrewav)
			titremp3 = Replace(objFile.Path,"wav","mp3")
			oFiletxt.WriteLine(titremp3)
			D:\Musique\_Utilitaires\ffmpeg-7.0.2-full_build\bin\ffmpeg -i titrewav -ab 320k titremp3
 
		End if
    Next
 
    For each objFolder in subfolders
        oFiletxt.WriteLine(objFolder.Path)
        List(objFolder) 'Appel récusive de la fonction List
    Next
 
End Function

Mais quand les fichiers sont paramétrés, ça ne fonctionne plus


Le fichier de sortie contient les bons paramètres. Par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
...
D:\Musique\Chanson\Agnès Bihl\24 heurs dans la vie d'une femme\01-La sieste crapuleuse.wav
D:\Musique\Chanson\Agnès Bihl\24 heurs dans la vie d'une femme\01-La sieste crapuleuse.mp3
...

L'erreur est systématiquement dans la ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

D:\Musique\_Utilitaires\ffmpeg-7.0.2-full_build\bin\ffmpeg -i titrewav -ab 320k titremp3

Alors que la ligne de commande suivante passe très bien:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
D:\Musique\_Utilitaires\ffmpeg-7.0.2-full_build\bin\ffmpeg -i "D:\Musique\Chanson\Agnès Bihl\24 heurs dans la vie d'une femme\01-La sieste crapuleuse.wav" -ab 320k "D:\Musique\Chanson\Agnès Bihl\24 heurs dans la vie d'une femme\01-La sieste crapuleuse.mp3"

Si je retire la ligne ligne de transcodage, le script fonctionne... mais pas de transcodage bien sur!

Je ne vois pas comment résoudre ce problème... Quelqu'un a-t-il une idée?

[umfred]

il ne faudrait pas forcer de mettre le chemin entre guillemets (à cause des espaces et autres) comme tu le fait manuellement.
ça serait bien aussi d'avoir l'erreur remontée, en général ça peut être très utile pour comprendre le problème.

[ProgElecT]

Salut

Au minimum votre ligne 35 n'a pas la bonne syntaxe
D:\Musique\_Utilitaires\ffmpeg-7.0.2-full_build\bin\ffmpeg -i titrewav -ab 320k titremp3 pas bon
"D:\Musique\_Utilitaires\ffmpeg-7.0.2-full_build\bin\ffmpeg -i" & titrewav & "-ab 320k" & titremp3 de façon a passer le contenu des variables non pas le nom de ses variables
Je penserai à un code du genre suivant

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
 
'On Error Resume Next
 
Const outFile = "file.txt"
Path = "D:\Musique"
Const wav = ".wav"
 
 
Dim oFilesys
Set oFilesys = CreateObject("Scripting.FileSystemObject")
Set oFiletxt = oFilesys.CreateTextFile(outFile,True)
Set Ws = CreateObject("Wscript.Shell")
 
oFiletxt.WriteLine(List(path))
oFiletxt.Close
 
MsgBox "Script Termine !"
Ws.Run outFile
 
Function List(directory)
On Error Resume next
    Set fsoFolder = CreateObject("Scripting.FileSystemObject")
    Set folder = fsoFolder.GetFolder(directory)
    Set subfolders = folder.SubFolders
    Set subfiles = folder.Files
	Dim cmd As String
 
    For each objFile in subfiles
 
		titrewav = objFile.Path
		if InStr(titrewav,".wav") > 0 then
			oFiletxt.WriteLine(titrewav)
			titremp3 = Replace(objFile.Path,"wav","mp3")
			oFiletxt.WriteLine(titremp3)
			rem D:\Musique\_Utilitaires\ffmpeg-7.0.2-full_build\bin\ffmpeg -i titrewav -ab 320k titremp3
 			cmd="D:\Musique\_Utilitaires\ffmpeg-7.0.2-full_build\bin\ffmpeg -i" & titrewav & "-ab 320k" & titremp3
			Ws.Run cmd
		End if
    Next
 
    For each objFolder in subfolders
        oFiletxt.WriteLine(objFolder.Path)
        List(objFolder) 'Appel récusive de la fonction List
    Next
 
End Function

[fhesser]

Merci pour vos réponses.
Du coup, j'ai essayé les commandes suivantes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
appPath = "D:\Musique\_Utilitaires\ffmpeg-7.0.2-full_build\bin\ffmpeg"
fic_in = "D:\Musique\Chanson\Agnès Bihl\24 heures dans la vie d'une femme\01-La sieste crapuleuse.wav"
fic_out = "D:\Musique\_Utilitaires\01-La sieste crapuleuse.mp3"
 
ordre = appPath & " -i " & chr(34) & fic_in & chr(34) & " -ab 320k " & chr(34) & fic_out & chr(34) 
shShell.Run ordre

en écrivant le paramètre ordre dans un fichier, j'obtiens:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
D:\Musique\_Utilitaires\ffmpeg-7.0.2-full_build\bin\ffmpeg -i "D:\Musique\Chanson\Agnès Bihl\24 heures dans la vie d'une femme\01-La sieste crapuleuse.wav" -ab 320k "D:\Musique\_Utilitaires\01-La sieste crapuleuse.mp3"

Plus d'erreur à l’exécution mais pas de conversion!
j'ai essayé la ligne de commande ci-dessus dans uns fenêtre CMD (dos) et cette commande passe très bien!
Comprends pas

[ProgElecT]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
appPath = "D:\Musique\_Utilitaires\ffmpeg-7.0.2-full_build\bin\ffmpeg -i """
fic_in = "D:\Musique\Chanson\Agnès Bihl\24 heures dans la vie d'une femme\01-La sieste crapuleuse.wav"
fic_out = "D:\Musique\_Utilitaires\01-La sieste crapuleuse.mp3"""
 
ordre = appPath & fic_in & chr(34)
ordre = ordre & " -ab 320k " & chr(34)
ordre = ordre & fic_out
shShell.Run ordre
rem msgbox  ordre

peut être

[fhesser]

Bien tenté....
mais non, je pense que c'est avec l'ordre suivant que ça ne fonctionne pas!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run ordre

il faudrait que je trouve le moyen de voir ce que retourne WsShell.Run - code d'erreur ou autre