question VB 6.0 URGENTE!!!Résolu

Question

J'ai fait un bouton qui lie pour ouvrir un repertoire avec le code suivant:




Dim myapp as Object


    myapp = Shell("C:\WINDOWS\explorer.exe App.Path\..\cce final\fiches",3)



Il peut ex&#233;cuter,mais donne une erreur apres avoir ouvert le fenetre




RUN-TIME ERROR 91&#65306;


Object variable pr With block variable not set



qn le comprend pourquoi?

Merci,je suis tres urgent pour cette question

redblast · Accepted Answer

Salut,



Shell ne renvoie pas un objet, mais un long:



  Dim myapp as Long

      myapp = Shell("C:\WINDOWS\explorer.exe App.Path\..\cce final\fiches",3)

cs_franckydeluka · Answer

lol l'instruction shell renvoie un integer

Dim myapp as Integer    
myapp = Shell("C:\WINDOWS\explorer.exe App.Path\..\cce final\fiches",3)



Deluka.

redblast · Answer

Edit:



Le mieux pour ouvrir un r&#233;pertoire c'est d'utiliser l'API ShellExecute, dans les d&#233;clarations rajoute ca:



Private Declare Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal
lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As
String, ByVal nShowCmd As Long) As Long

Private Const SW_SHOW = 5



Et dans ton bouton utilise &#231;a:



ShellExecute Form1.hwnd, "open", app.path & "\..\cce final\fiches", vbNullString, vbNullString, SW_SHOW

cs_franckydeluka · Answer

>>>> lololol pardon je viens de regarder la msdn et elle dit que l'instruction shell renvoie un double
j'ai voulu aller trop vite lol. mais integer ou long &#231;a marche aussi 



Deluka.

redblast · Answer

franckydeluka: ok pour l'integer, je pensais que c'&#233;tait un long :)

redblast · Answer

[auteurdetail.aspx?ID= 483943 ]franckydeluka: ok pour le double alors 

[auteurdetail.aspx?ID=483943 
][auteurdetail.aspx?ID=483943   ][auteurdetail.aspx?ID =483943 ]

tangjun · Answer

Merci bien!!!

Ca m'ai aid&#233; beacoup pour mon programme.

Question VB 6.0 URGENTE!!!

7 réponses

Discussions similaires