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

Question

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

ehjoe · Accepted Answer

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.

Utilisateur anonyme · Answer

Bonsoir,

Tu veux l'ouvrir pour observer son contenu, ou bien l'exécuter ?

mottecorp · Answer

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:	tt.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:	tt.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.

mottecorp · Answer

ooops !! Un peu à la masse la, désolé :/

ThomasIsComingBack · Answer

En fait je veux l'éxecuter

Sirranamto98 · Answer

Tu peux utiliser shell
shell("lechemind'acces")

ThomasIsComingBack · Answer

Bien vu l'exhumation de POST !

Ouvrir un fichier présent dans "Resources" (VB 2010 Express"

7 réponses

Votre réponse

Discussions similaires