Discussion :

[Yahazmat]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
If System.IO.File.Exists("test.txt") = True Then
            Dim wow As StreamReader = New StreamReader("test.txt")
            Dim read As String
            read = wow.ReadToEnd
            'MsgBox(read)
            Try
                Process.Start(read)
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical) 
            End Try
            wow.Close()
        End If

Voici mon problème : j'ai bien accès au .txt (qui ne contient qu'une seule ligne) où est contenu le chemin d'un exécutable qui est correct (vérifié avec la msgbox) mais lorsque je demande l’exécution de l'exe en question j'obtiens une erreur "fichier introuvable".

Je sollicite donc votre aide afin de pallier à ce léger problème .

Cordialement.

[hunteshiva]

Bonjour,

as tu essayé avec le chemin complet?

Code :

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

1
2
3
4
5
Dim CheminFichier As String = "C:\test.txt"
 
If System.IO.File.Exists(CheminFichier) = True Then
    'Etc.
End If

[tomlev]

Est-ce qu'il y a un retour à la ligne à la fin de ton fichier ? Si oui il est lu avec le reste quand tu fais ReadToEnd... Il faut utiliser ReadLine pour lire une ligne.

[Yahazmat]

Merci à vous, le problème venait effectivement de l'instruction "readtoend" qui changé en "readline" m'a permis d’exécuter le fichier.

[hunteshiva]

Il serrait *fortement* apprécié que tu clic sur *en bas*
et que tu mette ta réponse finale avant de bâcler ton post
une fois que t'a eu ce que tu cherchais.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
If System.IO.File.Exists("test.txt") = True Then
     Dim wow As StreamReader = New StreamReader("test.txt")
     Dim read As String
     read = wow.readline ' <- ligne modifiée
     'MsgBox(read)
    Try
        Process.Start(read)
    Catch ex As Exception
        MsgBox(ex.Message, MsgBoxStyle.Critical) 
    End Try
    wow.Close()
End If