algo69
Messages postés47Date d'inscriptionsamedi 13 décembre 2003StatutMembreDernière intervention13 mars 2005
-
12 janv. 2004 à 15:22
algo69
Messages postés47Date d'inscriptionsamedi 13 décembre 2003StatutMembreDernière intervention13 mars 2005
-
12 janv. 2004 à 20:41
Salut
j'ai tapé le code suivant pour executer internet explorer à partir de vb
Private Sub CommandButton5_Click()
Set FSys = CreateObject("Scripting.FileSystemObject")
Set monfic = FSys.CreateTextFile("E:\\fichier.bat")
With monfic 'Pour écrire dans le fichier
.writeLine "C:" 'Mettre write pour ne pas sauter à la ligne
.writeLine "cd Program Files\\Internet Explorer"
.writeLine "IEXPLORE.EXE"
.Close
End With
Msg = "Écriture réussie dans fichier.bat"
MsgBox (Msg)
toto = Shell("E:\\fichier.bat", 3)
End Sub
mais il s'execute pa
par contre si je clique sur fichier.bat directement ça s'execute