Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionMessageBox.Show("coucou")
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Shell("cmd.exe /C adb reboot bootloader") MessageBox.Show("Une fois sur le bootloader, cliquez OK") Shell("cmd.exe /C fastboot boot cofface_recovery_en.img") End Sub
Imports System.IO Imports System.IO.Path Public Class Accueil Private Sub Accueil_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim Chm As String, Ok As Boolean Chm = DossierProjet() & "\NomFichier.txt" Ok = FichierExistant(Chm) MessageBox.Show(Ok.ToString) End Sub Public Function FichierExistant(ByVal Chemin As String) As Boolean Return File.Exists(Chemin) End Function Public Function DossierExistant(ByVal Chemin As String) As Boolean Return Directory.Exists(Chemin) End Function Private Function DossierProjet() As String Dim Dos As String Dos Application.StartupPath : Dos GetDirectoryName(Dos) : Dos = GetDirectoryName(Dos) Return Dos End Function End Class