Set objDialog = CreateObject("UserAccounts.CommonDialog") sous Vista

Bonjour,

J'utilise le script suivant pour permettre à l'utilisateur de sélectionner un fichier :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Set objDialog = CreateObject("UserAccounts.CommonDialog")   objDialog.Filter = "All Files|*.*" objDialog.InitialDir = "C:\" intResult = objDialog.ShowOpen   If intResult = 0 Then Wscript.Quit Else Wscript.Echo objDialog.FileName End If

---

Sur Windows XP tout va bien, sur Vista, j'ai le message suivant :
Un composant ActiveX ne peut pas créer un objet : 'UserAccounts.CommonDialog'

Merci à tous ceux qui voudront bien m'aider...

Salut,

c'est peut-être lié à l'UAC. Essaie de la désactiver (le PC devra rebooter) et de relancer ton script pour voir si ça vient de là.

Karl3i.

bonjour,

il s'agissait d'un hack utilisable uniquement sous xp :aie:
voir ici: http://blogs.msdn.com/gstemp/archive.../17/74868.aspx

une solution (parmi bien d'autres) ici: http://www.jsware.net/jsware/scripts.php3#brows

Bonjour Karl et merci.

J'ai donc désactiver l'UAC en suivant les instructions fournies par Microsoft et perdu, ça ne change rien...

*******************************************************
Bonjour Omen et merci également !

J'ai donc installé la dll sur mon xp dans un premier temps pour "bien maîtriser l'installation", tout fonctionne. Sur vista, j'ai un souci à l'inscription de la dll dans la base de registre... apparemment, vista ne souhaite pas que je l'inscrive...

Citation:

---

Erreur 0x80004005 (module chargé, mais l'appel à la dll dllRegisterServer à échoué)

---

*****************************************************
Enfin, c'est complètement fou, j'arrive en vbscript à ouvrir un répertoire (et ses fichiers du coup) mais pas un seul fichier !!!! C'est vraiment frustrant !

cf code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim a,f,i,w Set a=CreateObject("Shell.Application") Set w=CreateObject("WScript.Shell")   Set f=a.BrowseForFolder(&H0&,Msg,&h1&) B=f.ParentFolder.ParseName(f.Title).Path   Set oFSO = CreateObject("Scripting.FileSystemObject") oFSO.CopyFolder B,"c:\test\",True If Err.Number<>0 Then B=Null If f.Title="Desktop" Then B=w.SpecialFolders("Desktop") i=InStr(f.Title, ":") If i>0 Then B=Mid(f.Title,i-1,2) & "\" End If Set oFSO = nothing Set f = nothing Set w = nothing Set a = nothing

---

Bon, j'ai un peu avancé...

J'ai désactivé la sécurité momentanément et j'ai pu inscrire ma dll, mais quand j'exécute mon script :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Set objDialog = CreateObject("Jsdlgbox.browser") Set oFSO = CreateObject("Scripting.FileSystemObject") 'objDialog.InitialDir = "C:\" intResult = objDialog.openbox If intResult = "" Then MsgBox("Aucun fichier sélectionné !") else MsgBox(intResult) End If Set oFSO = nothing Set objDialog = nothing

---

J'ai un autre message :

Citation:

---

Windows Vista is not supported (erreur n°800A0258)

---

Pas facile......

Bon, à priori cette commande ne marche que sous XP :
http://www.microsoft.com/technet/scr...5/hey0128.mspx

Mais que vais-je bien pouvoir utiliser sous Vista..... j'suis foutue...:aie:

Pour info, j'ai trouvé un autre script pour ouvrir un fichier :

Code:

---

1 2 3 4 5 6

************************* Set objDialog = CreateObject("SAFRCFileDlg.FileOpen") Ret = objDialog.OpenFileOpenDlg WScript.Echo Ret, objDialog.FileName   *************************

---

ça marche bien sous XP, mais toujours pas sous Vista... c'est pas juste !

Bon, c'est résolu... les puristes vont prendre peur....

J'ai bien utiliser ce script :

Code:

---

1 2 3 4 5

************************************ Set objDialog = CreateObject("SAFRCFileDlg.FileOpen") Ret = objDialog.OpenFileOpenDlg WScript.Echo Ret, objDialog.FileName ************************************

---

Comme il se base sur une dll d'xp (safrcdlg.dll), voici ce que j'ai fait :
1- Désactivation de l'UAC
2- Inscription de ma dll avec regsvr32 sous c:\program files\system32
3- Réactivation de l'UAC
4- Test et au miracle j'ai enfin ma boîte de dialogue ! Cool !

Merci à tous !
:yaisse2: