Erreur 800A01AD sous Windows 7

**Superpat9999** · 02/12/2011, 08h59

Bonjour,
Mon code fonctionnait sous Xp et plus sous Windows 7 ? Connaitriez-vous l'équivalent.

Merci

Code :

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

1
2
3
4
5
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "Money|*.ofx|Tous les fichiers|*.*"
objDialog.Flags = &H0200
objDialog.FilterIndex = 1
objDialog.InitialDir = "D:\downloads"

**omen999** · 02/12/2011, 11h34

bonjour,
un classique
sinon la fonction API GetOpenFileName peut également être utilisée mais il faut un wrapper et c'est un peu compliqué pour le scripteur occasionnel

**Superpat9999** · 02/12/2011, 15h17

Navré, mais je n'y arrive pas, j'ai toujours pas. J'ai toujours l'erreur 800A01AD.
Je souhaite ouvrir une boite de dialogue dans un dossier particulier et sélectionner un fichier avec une extension .ocx !

**omen999** · 02/12/2011, 16h19

as-tu au moins essayé la solution testée par progicl dans le lien que je t'ai donné (le dernier message) ?

**Superpat9999** · 02/12/2011, 17h55

Oui merci, cela fonctionne avec la commande suivante et j'ai copié la dll, mais je suis obligé de changer de dossier et de sélectionner les .ofx.
C'est beaucoup moins pratique

Code :

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

1
2
3
4
 
Set objDialog = CreateObject("SAFRCFileDlg.FileOpen")
Ret = objDialog.OpenFileOpenDlg
Fichier = objDialog.FileName

**omen999** · 02/12/2011, 19h24

mais je suis obligé de changer de dossier et de sélectionner les .ofx.

eh oui, lire ici

**hackoofr** · 02/12/2011, 21h26

essaye cette fonction BrowseForFile() pour résoudre le problème du fichier redouté de dialogue dans Windows Vista et Windows 7 , il ouvre un dialogue de navigation utilisant un fichier hta pour contourner la sécurité du navigateur. Il n'y a pas de filtre natif pour le type de fichier. Tous les fichiers sont parcourus pour que se fait normalement par l'intermédiaire de l'Explorateur Windows

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Function BrowseForFile()
 Dim shell : Set shell = CreateObject("WScript.Shell")
 Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
 Dim tempFolder : Set tempFolder = fso.GetSpecialFolder(2)
 Dim tempName : tempName = fso.GetTempName()
 Dim tempFile : Set tempFile = tempFolder.CreateTextFile(tempName & ".hta")
 tempFile.Write _
 "<html>" & _
 "    <head>" & _
 "        <title>Browse</title>" & _
 "    </head>" & _
 "    <body>" & _
 "        <input type='file' id='f'>" & _
 "        <script type='text/javascript'>" & _
 "            var f = document.getElementById('f');" & _
 "            f.click();" & _
 "            var shell = new ActiveXObject('WScript.Shell');" & _
 "            shell.RegWrite('HKEY_CURRENT_USER\\Volatile Environment\\MsgResp', f.value);" & _
 "            window.close();" & _
 "        </script>" & _
 "    </body>" & _
 "</html>"
 tempFile.Close
 
 shell.Run tempFolder & "\" & tempName & ".hta", 1, True
 
 BrowseForFile = shell.RegRead("HKEY_CURRENT_USER\Volatile Environment\MsgResp")
 shell.RegDelete "HKEY_CURRENT_USER\Volatile Environment\MsgResp"
End Function
 
MsgBox BrowseForFile,64,"BrowseForFile"

**Superpat9999** · 04/12/2011, 10h28

Merci à tous,
Je vais renoncer et juste me servir de SAFRCFileDlg, car après essai je ne trouve rien de satisfaisant. Je pensais que connaissant le dossier et l’extension, on aurait dû retrouver une fonction simple sous Windows 7 et équivalente à celle d'XP, mais ce n'est pas le cas. Peut-être en faisant appel à un autre langage ?

Bon dimanche

Erreur 800A01AD sous Windows 7

VBScript

Vue hybride

Discussions similaires

Partager

Partager