Discussion :

[miche19000]

Bonjour ,
jai crée une application vb.net dans la quelle je veux lancer un scripte vbs lorsque je load ma forme

j'ai insérer vbs dans ressource du projet

Code VBS <<toto.vbs>>

Code :

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

1
2
3
4
 
          Set WshShell = WScript.CreateObject("WScript.Shell")
         WshShell.Run "%windir% "
         WshShell.SendKeys  "{TAB}"

code vb.net

Code :

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

1
2
3
4
5
 
        Dim pp As New Process
        pp.StartInfo.Verb = "Open"
        pp.StartInfo.FileName = My.Resources.toto
        pp.Start()

j'ai une erreur >>

Le fichier spécifié est introuvable

qqun peut m'aider sachant que si je donne le chemin du scripte
pp.StartInfo.FileName ="d:\temp\toto.vbs"
ça fonctionne correctement
Merci

[Danyel]

Donc le probleme vient de My.Resources.toto
Par contre, je vois pas trop l'utilite de mettre un string dans une resource ???

[tomlev]

Par contre, je vois pas trop l'utilite de mettre un string dans une resource ???

Ben la localisation par exemple, c'est à ça que ça sert à la base... Par contre pour un nom de fichier ça me semble bizarre

[Danyel]

Par contre pour un nom de fichier ça me semble bizarre

lol c'est bien ce que je disais

[methylene]

Bonjour,

Perso je ferais cela différemment :

Je mettrais mon fichier .vbs dans le repértoire de l'application, puis j'irais le chercher dans ce répertoire :

Code :

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

        TonChemin = Application.StartupPath & "\toto.vbs"

Puis je lancerais le process à partir de ce chemin :

Code :

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

        Process.Start(TonChemin )

De plus si je ne m'abuse, tu peux exécuter des commandes Shell directement via vb.net, dans ton code.

Bonne continuation !

[miche19000]

j'ai trouver une façon de faire mais

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
 
 Try
            Dim nomFichier As String
            Dim cheminPlusFichier As String
            nomFichier = "\toto.vbs"
            cheminPlusFichier = My.Application.Info.DirectoryPath + nomFichier
            If File.Exists(cheminPlusFichier) Then
                File.Delete(cheminPlusFichier)
                File.WriteAllText(cheminPlusFichier, My.Resources.toto)
                Dim pp As New Process
                pp.StartInfo.Verb = "Open"
                pp.StartInfo.FileName = cheminPlusFichier
                pp.Start()
                File.Delete(cheminPlusFichier)
            End If
        Catch ex As Exception
        End Try

le probleme, est que je ne doit pas crée de fichier chez le client meme si c'est temporaire