Discussion :

[Lechette]

Bonsoir!!!

Je fait appel à un fichier bat, qui se trouve dans un répertoire qui est en mémoire dans My.settings:

Code :

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

1
2
3
4
If RB_408lisse.Checked = True Then
            Call Shell(My.Settings.Diruser("_Switch-408_No_Mods.bat"))
        Else
        End If

Et il me balance une erreur:

Une exception de première chance de type 'System.InvalidCastException' s'est produite dans Microsoft.VisualBasic.dll

Pourquoi ca ne fonctionne pas?

Merci d'avance!

[tomlev]

Tu utilises My.Settings.Diruser comme si c'était une fonction, alors qu'a priori c'est une chaine de caractères... pour construire un chemin d'accès à partir d'un répertoire et d'un nom de fichier, on utilise habituellement Path.Combine :

Code :

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

1
2
Dim path As String = Path.Combine(My.Settings.Diruser, "_Switch-408_No_Mods.bat")
Shell(path)

[Lechette]

Merci beaucoup!!! Je pense que je n'aurais pas trouvé même en cherchant...

[tomlev]

n'oublie pas le tag

[Lechette]

Bonsoir!!

J'ai utilisé le combine pour le code suivant:

Code :

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

1
2
3
4
If CB_Fumée.Checked Then
                Ancien = IO.Path.Combine(My.Settings.Diruser, "-3rdeye_SmokeFire_Effects lower resolution")
                Nouveau = IO.Path.Combine(My.Settings.Diruser, "3rdeye_SmokeFire_Effects lower resolution")
                Rename(Ancien, Nouveau)

Une erreur s'affiche et me dit:

Une exception de première chance de type 'System.IO.FileNotFoundException' s'est produite dans Microsoft.VisualBasic.dll

Vous auriez une idée?

[Lechette]

J'ai trouvé

C'est tout simplement parceque dans mon Diruser, il y a un dossier MODS dans lequel se trouvent mes dossiers à renommer....

Y a il un moyen simple de faire :

Code :

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

Ancien = IO.Path.Combine(My.Settings.Diruser/MODS, "-3rdeye_SmokeFire_Effects lower resolution")

ou encore

Code :

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

If IO.File.Exists(My.Settings.Diruser/MODS & "3rdeye_SmokeFire_Effects lower resolution")

En fait spécifier qu'on va travailler dans diruser, ET dans MODS.

Merci d'avance!!

[tomlev]

Code :

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

Ancien = IO.Path.Combine(My.Settings.Diruser, "/MODS/-3rdeye_SmokeFire_Effects lower resolution")

[Lechette]

Merci!!! Je cherchait pas au bon endroit en fait!!