Comande Shell: path fichier donné par une variable?

Version imprimable

Bonjour, je suis sur un petit projet qui consiste à automatiser le transcodage vidéo de vlc pour des vidéos compatible HTML5.

Je voudrais donc envoyer des commande shell personnalisée via un petit interface graphique. J'utilise Virtual Basic Expresse.

Mais je bloque sur la magnière de crée mes commandes avec

My.Computer.FileSystem.WriteAllText

Mais je n'arrive pas à écrire le contenus de mes variable dans mon text...
Si vous pouviez m'aider :ccool:

ps: J'aimerais bien me passer d'un fichier .bat je suis donc à l'écoute de vos proposition ! :D

Mon code pour l'instant :

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
 
Public Class Form1
    'Déclaration des variables:
 
    Dim selectedFile As String = String.Empty
    Dim selectedFolder As String = String.Empty
 
 
    'Demande le chemin du fichier vidéo à convertire.
    Private Sub BpParcourireSource_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BpParcourireSource.Click
 
        OpenFileDialogInput.ShowDialog()
        selectedFile = OpenFileDialogInput.FileName
 
 
        If (selectedFile IsNot Nothing) Then
            TextBoxInput.Text = selectedFile
        End If
 
    End Sub
 
    'Demande où l'utilisateur veut enregistrer le pack de vidéos converties.
    Private Sub BpParcourireOutput_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BpParcourireOutput.Click
 
        FolderBrowserDialogOutput.ShowDialog()
        selectedFolder = FolderBrowserDialogOutput.SelectedPath
 
 
 
        If (selectedFolder IsNot Nothing) Then
            TextBoxOutput.Text = selectedFolder
 
        End If
 
    End Sub
 
    'Lance le prossesus de convertion.
    Private Sub BpConvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BpConvert.Click
 
        'Crée un fichier .bat dans le quelle l'on va génèrer le code Shell
 
 
        My.Computer.FileSystem.WriteAllText("C:\TestFolder1\test.txt", _
"This is new text to be added.", True)
 
 
 
 
 
    End Sub
End Class

L'idée c'est d'utiliser les variable "selectedFile"= fichier_entrée et "selectedFolder"= fichier Sortie. dans le code batch que voila

Code:

1
2
3
vlc -Idummy fichier_entree --sout "#transcode{vcodec=div3,acodec=vorb}:standard{access=file,dst='fichier_sortie',mux=ogg}"
vlc://quit

Merci

Soit j'ai pas compris ce que tu voulais, soit c'est tout simple

Donc on veux ici faire un string qui contiendra la ligne de commande, et y ajouté la valeur de tes variables c'est ca?

Si oui ca donne un truc du genre :
Code:

1 2 3 4 5 6 7 Dim fichier_entree As String = "toto.txt" Dim fichier_sortie As String = "titi.txt" Dim maCommande As String = "" maCommande = "vlc -Idummy " & fichier_entree & " ""--sout #transcode{vcodec=div3,acodec=vorb}:standard{access=file,dst='" & fichier_sortie & "',mux=ogg}""" & _ vbCrLf & "vlc://quit"
J'ai triplé les double quotes pour pouvoir les afficher comme dans ton exemple, le vbcrlf c'est le retour de chariot, et le & c'est le signe de concaténation

Ca donne ca
Code:

1 2 3 vlc -Idummy toto.txt "--sout #transcode{vcodec=div3,acodec=vorb}:standard{access=file,dst='titi.txt',mux=ogg}" vlc://quit
Essaie et redonne des nouvelles :ccool:

14/09/2011, 23h42
Be0rn

Je vais essayer de faire quelque chose avec ce que tu m'as donné ^^

Et merci

la suite demain ^^

Voila! Grâce à ton aide j'ai bien pu avancer ! Maintenant j'arrive à crée mon batch :mrgreen: Encore un peut de travaille et ce seras tout bon !

Mon code à ce jours.

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
60
61
 
Public Class Form1
    'Déclaration des variables:
 
    Dim selectedFile As String = String.Empty
    Dim selectedFolder As String = String.Empty
    Dim maCommande As String = String.Empty
 
 
    'Demande le chemin du fichier vidéo à convertire.
    Private Sub BpParcourireSource_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BpParcourireSource.Click
 
        OpenFileDialogInput.ShowDialog()
        selectedFile = OpenFileDialogInput.FileName
 
 
        If (selectedFile IsNot Nothing) Then
            TextBoxInput.Text = selectedFile
        End If
 
    End Sub
 
    'Demande où l'utilisateur veut enregistrer le pack de vidéos converties.
    Private Sub BpParcourireOutput_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BpParcourireOutput.Click
 
        FolderBrowserDialogOutput.ShowDialog()
        selectedFolder = FolderBrowserDialogOutput.SelectedPath
 
 
 
        If (selectedFolder IsNot Nothing) Then
            TextBoxOutput.Text = selectedFolder
 
        End If
 
    End Sub
 
    'Lance le prossesus de convertion.
    Private Sub BpConvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BpConvert.Click
 
        'Forger la comande à partire des variables.
        maCommande = _
        vbCrLf & "vlc -Idummy """ & selectedFile & """ --sout ""#transcode{vcodec=div3,acodec=vorb}:standard{access=file,dst='""" & selectedFolder & """',mux=ogg}""" & _
        vbCrLf & "vlc://quit"
 
        'Ecrire la comande dans un ficher .bat temporaire.
        My.Computer.FileSystem.WriteAllText("c:\VideoConvertertemp.bat", maCommande, True)
 
 
        'Executer le batch dans le cmd.
        Shell("C:\Windows\System32\cmd.exe /K c:\VideoConvertertemp.bat")
 
 
        'Suprimer le ficher temporaire.
        Shell("del c:\VideoConvertertemp.bat")
 
    End Sub
 
 
 
End Class

15/09/2011, 10h13
GRUMLY
Hello,

Pour les manipulations de fichiers tu devrais utiliser les classes du namespace IO et pour lancer un shell, pour une meilleure intégration, je te conseille la classe process
Exemple :
Code:

1 2 3 4 5 6 Dim process As New Process process.StartInfo.FileName = "cmd.exe" process.StartInfo.Arguments = "<ta ligne de commande>" process.Start() process.WaitForExit() process.Close()
15/09/2011, 11h14
Be0rn

Merci pour le conseille je vais cogiter tout ça :mouarf:
15/09/2011, 14h54
Be0rn

@GRUMLY

Avec ta mèthode, si j'ai plusieurs commande, je fais;

process.StartInfo.Arguments = "<ligne de commande1>, <ligne de commande2>" ?

Non, soit tu peux parralleliser et tu declare un process different par ligne de commande. Sinon, tu lance ton process avec ta première ligne de commande, une fois fini tu modifies la valeur "Arguments" sur le mm process que tu relances.
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim process As New Process process.StartInfo.FileName = "vlc.exe" process.StartInfo.Arguments = "1ere serie d'arguments" process.Start() process.WaitForExit() process.Close() process.StartInfo.Arguments = "2ème serie d'arguments" process.Start() process.WaitForExit() process.Close()