[VB] Problème de localisation de fichier Résolu/Fermé

Question

Bonjour, 
J'ai programmé un utilitaire pour modifier le fichier hosts comme le veut l'utilisateur... Enfin bref, j'ai eu besoin d'une sous-application que j'ai programmée en batch, puis ramenée en exécutable. Et je l'ai mis dans un dossier nommé Res et Res se trouve dans le même dossier que mon application. Mon code est le suivant :

 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        MsgBox("Restaurer le fichier host éffacera toutes les modifiquations éffectuées ! Êtes-vous sure de vouloir continuer ?", vbYesNo, "Attention")
        
            If MsgBoxResult.Yes Then
            Shell("\Res\Res.exe", AppWinStyle.NormalFocus)


        End If

    End Sub 
Et là il me dit "Fichier introuvable", je me suis posé la question dans tous les sens que j'ai pu, et j'ai essayé avec le chemain complet 
Shell("C:\Users\X\Documents\Visual Studio 2012\Projects\Gérer le fichier host\Gérer le fichier host\bin\Debug\Res\Res.exe", AppWinStyle.NormalFocus
Et il me dit la même chose ! J'ai vérifié l'extension, le nom, et tout est bon (sauf mon code bien-sûr, sinon il fonctionnerait...)

Merci d'avance
Roi Boo17 

Configuration: Windows 8 / Chrome 22.0.1229.96

Heliotte · Answer

Essaie avec :
- deux points : Shell("..\Res\Res.exe", AppWinStyle.NormalFocus)
- inverser les Backslash : Shell("/Res/Res.exe", AppWinStyle.NormalFocus)
- inverser les Backslash et les deux points : Shell("../Res/Res.exe", AppWinStyle.NormalFocus)

RoiBoo17 · Answer

Non toujours pas...

Heliotte · Answer

Essaie avec ceci:Shell(Application.StartupPath & "\Res\Res.exe", AppWinStyle.NormalFocus)

RoiBoo17 · Answer

C'est incroyable, toujours pas j'ai même enlevé la condition (if ...) Mais non, j'ai changé les noms, et toujours pas... Il me dit la même chose à savoir http://imagik.fr/view-rl/5034  

EDIT : J'ai même fait ça :  
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click  
        Dim Start As String  
        Start = Application.StartupPath & "\hostpara\rest.exe"  
        MsgBox(Start)  

    End Sub  

Et là tout  était bon ! Je ne comprends vraiment rien. 

EDIT 2 : J'ai réussi en faisant passer la commande par le cmd, mais ça ne fonctionne pas car mon chemin de fichier comporte des espaces mais quand je le fait passer par mon bureau, tout va pour le mieux... Cependant cette erreur me bloque bcp...
Shell("cmd.exe /c " & "start " & Start, 1)

RoiBoo17 · Answer

J'ai trouvé la solution au cas où ça t'intéresse voilà le script qui fonctionne : 
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 
        Dim Start As String 
        Start = "Res\Res.exe" 
        Shell("cmd.exe /k " & Start, 1) 

    End Sub

[VB] Problème de localisation de fichier

5 réponses

Discussions similaires