Restaurer une Base de données postgresql avec VB6

Bonsoir à la communauté.
Je voudrais restaurer une base de données postgresql en utilisant VB6 (c'est à dire à partir du code).
pour la sauvegarde j'arrive à le faire sans problème. Pour cela, j'utilise la commande SHELL de VB.

Code:

---

1 2 3 4 5 6 7 8 9 10

Commande = "C:\Program Files\PostgreSQL\8.2\bin\pg_dump.exe -i -h localhost -p 5432 -U postgres -F c -b -v -f " & Chr(34) & "" & Label_fich.Caption & "" & Chr(34) & " " & dataBASENAME ' Commande contient la chaine de caractères permettant de sauvegarder la BD resultat = Shell(Commande, vbMinimizedNoFocus) If resultat = 0 Then MsgBox "La sauvegarde à échouer. Vérifier que vous êtes connectés au serveur", vbCritical, App.title & " : Echec!" Else MsgBox "La sauvegarde a réussi.", vbInformation, App.title Unload Me End If

---

Pour la restauration je procède de la même manière que la sauvegarde sauf qu'ici la commande n'est pas la même

Code:

---

Commande = "C:\Program Files\PostgreSQL\8.2\bin\pg_restore.exe -i -h localhost -p 5432 -U postgres -d test -v " & """" & Label_fich.Caption & """"

---

Si quelqu'un à des suggestions elles seront la bienvenue d'avance merci.