Ouvrir un fichier présent dans "Resources" (VB 2010 Express" [Résolu]

Signaler
Messages postés
33
Date d'inscription
lundi 19 juillet 2010
Statut
Membre
Dernière intervention
6 mars 2013
-
Messages postés
33
Date d'inscription
lundi 19 juillet 2010
Statut
Membre
Dernière intervention
6 mars 2013
-
Bonjour,
J'aimerais savoir comment je peux ouvrir un fichier .bat préalablement créé quand je clique sur un bouton. Je l'ai mis dans Resources (dans les propriétés du programme). Je ne sais pas comment faire, ni quelle méthode utiliser. Je veux bien le mettre ailleurs que dans "Resources" mais je n'y arrive pas.
Merci pour votre aide.

Thomas

7 réponses

Messages postés
728
Date d'inscription
samedi 4 avril 2009
Statut
Membre
Dernière intervention
30 mars 2014
6
Bonjour ThomasIsComingBack,

Déjà tu peux le recopier sur ton disque dans le répertoire par défaut, il y sera mieux :


Dim nomFichier As String
Dim cheminPlusFichier As String
nomFichier = "\monBatch.bat"
cheminPlusFichier = My.Application.Info.DirectoryPath & nomFichier
System.IO.File.WriteAllBytes(cheminPlusFichier, My.Resources.monBatch) ' monBatch = ton nom de fichier sans extension.



Mais, un batch, suffit de créer un fichier nommé ainsi, de le charger ligne par ligne du code, et ensuite il marchera...

Pour l'appeler (sous réserve) :


Try
 Process.Start("monBatch.bat")
 Catch ex As Exception
End Try



Cordialement, Joe.

Bonsoir,

Tu veux l'ouvrir pour observer son contenu, ou bien l'exécuter ?
Messages postés
11
Date d'inscription
dimanche 26 juillet 2009
Statut
Membre
Dernière intervention
28 novembre 2011

Certainement, pour afficher le traitement effectué dans un fichier batch dans un interface VB, il suffit d'envoyer le fichier dans un fichier text et de le lire par après pour l'afficher où tu le désires, un TextBox par exemple.

Dim test As New System.Diagnostics.Process
test.StartInfo.FileName = "CMD.exe"
test.StartInfo.Arguments = "/C Dir > c:\ttt.txt"
test.Start()

Ici la commande Dir sera renvoyé dans ttt.txt qui se créera automatiquement. Ensuite, il suffit de le lire

Dim myStream As System.io.StreamReader = Nothing

'Lire un fichier
Try
Me.Cursor.Current = Cursors.WaitCursor
myStream = New System.io.StreamReader("c:\ttt.txt")
Dim line As String
If (Not myStream Is Nothing) Then
Me.TextBox1.Text = Nothing
Do
line = myStream.ReadLine
'Permet d'inscrire le texte qui se trouve dans le fichier dans un TextBox Multiline ...
Me.TextBox1.Text &= line & vbCrLf
Loop Until line Is Nothing
myStream.Close()
End If
Catch ex As Exception
MessageBox.Show("Le fichier ne peut pas être lue")
Finally
Me.Cursor.Current = Cursors.Default
End Try


En espérant que ça puisse t'aider ... Bonne journée.
Messages postés
11
Date d'inscription
dimanche 26 juillet 2009
Statut
Membre
Dernière intervention
28 novembre 2011

ooops !! Un peu à la masse la, désolé :/
Messages postés
33
Date d'inscription
lundi 19 juillet 2010
Statut
Membre
Dernière intervention
6 mars 2013

En fait je veux l'éxecuter

Tu peux utiliser shell
shell("lechemind'acces")
Messages postés
33
Date d'inscription
lundi 19 juillet 2010
Statut
Membre
Dernière intervention
6 mars 2013

Bien vu l'exhumation de POST !