Sujet Précédent Sujet Suivant

Probleme de noob avec les common dialog

tekila_bandita Messages postés 248 Date d'inscription mercredi 15 juin 2005 Statut Membre Dernière intervention 15 mars 2007 - 20 août 2005 à 10:37
pjcleder Messages postés 183 Date d'inscription jeudi 4 février 2010 Statut Membre Dernière intervention 16 septembre 2011 - 21 août 2005 à 16:47

Bonjour, je fais du vbs (et non du vb, vba ou excel) donc svp, j'aimerais une reponse vbS...
lol
Donc en faite, dans mon code je fais appel à un common dialog showopen, mais je n'arrive pas à ouvrir le fichier séléctinné...
voici mon code :

' controle common dialog
Set oUA = CreateObject("UserAccounts.CommonDialog")

'contole pour pouvoir ouvrir le fichier séléctionné
Set WshShell=CreateObject("WScript.Shell")

' Affichage de la boite de dialogue showopen
x = oUA.ShowOpen

'Run le fichier séléctionner
WshShell.Run(x)

voila!

A voir également:

Useraccounts.commondialog
Microsoft windows common controls-2 6.0 - Forum Visual Basic
Vb6 common dialog ✓ - Forum Visual Basic
Declaration commonDialog ✓ - Forum Visual Basic 6
Bibliothèque d'objets non enregistrée / Seven64b / Microsoft Windows Common Cont - Forum Visual Basic 6
Erreur ouverture commondialog ✓ - Forum Visual Basic

1 réponse

Réponse 1 / 1

pjcleder Messages postés 183 Date d'inscription jeudi 4 février 2010 Statut Membre Dernière intervention 16 septembre 2011 11
21 août 2005 à 16:47

PAT

Voici ce qu'il faut écrire :

Set oUA = CreateObject("UserAccounts.CommonDialog")

Set WshShell=CreateObject("WScript.Shell")

x = oUA.ShowOpen

dim a

a = oUA.FileName

WshShell.Run(a)

Discussions similaires

Common Dialog

[VB.NET] OpenFileDialog, débutant .NET

How do I create a modeless dialog in a DLL?

Ajouter un commondialog?

GUID - Version Microsoft Windows common control-2 6.0