rétablir le répertoire par défaut après un OpenFileDialog

Bonjour à tous,

j'ai un script dans lequel je me connecte à une base de données avec les lignes suivantes:

Code:

---

1 2	oConn = CreateObject("ADODB.Connection") oConn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=db_input.mdb;password=wefri")

---

ces lignes seules fonctionnent très bien, je n'ai aucun problème de connexion, je me connecte bien à ma base de données db_input.mdb qui se situe dans le répertoire bin de mon appli.

Dans ce même script, j'utilise un OpenFileDialog qui me permet de sélectionner un fichier où je veux. Je fais donc:

Code:

---

1 2 3

If Me.OpenFileDialog1.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then 'etc. End If

---

Mais quand après l'appel à mon OpenFileDialog je tente de nouveau de me connecter à ma base de données, j'obtiens ce message:
[Microsoft][Pilote ODBC Microsoft Access] Fichier '(Inconnu)' introuvable

Si je mets ma base de données dans le répertoire où j'ai sélectionné le fichier , alors ma connexion fonctionne bien. Mon problème est donc que mon répertoire par défaut est modifié par mon OpenFileDialog. Comment le rétablir sans préciser une adresse absolue?

merci d'avance pour votre aide!

ben j'ai trouvé la solution, je la note, ça peut servir à d'autres:
il faut mettre avant d'utiliser l'OpenFileDialog:

Code:

---

cd = System.IO.Directory.GetCurrentDirectory

---

et après l'avoir utilisé:

Code:

---

System.IO.Directory.SetCurrentDirectory(cd)

---