bonsoir,
mon appli se lance à partir d'un Sub main (voir code si dessous)
c'est le code complet de mon prog ci-dessous donc le probleme ne peut venir
que de la
et j'ai executer le code une première fois sa a marché (essayé avec
l'argument "-search")
mais maintenant si j'essai de lancer à nouveau le prog avec le meme argument
ou en changeant d'argument qui font apellent à diverses méthodes de
shell.application ne marche plus
rien ne se passe
pourquoi ?
faudrait-il détruire l'objet wshshell une fois l'action passée ?
merci
Private Sub Main()
'var.locale
Dim WshShell As Object
Set WshShell = CreateObject("Shell.Application")
Select Case Command
Case "-run"
WshShell.FileRun
Case "-search"
WshShell.FindFiles
Case "-support"
WshShell.Help
End Select
désolé pour le post un bug surement dans windows j'ai recréer les raccourcis sur le bureau avec différents arguments et sa marche sans problèmes
ng
Salut,
Sinon oui, il est conseillé de détruire ton objet :
Set WshShell = Nothing
Mais pourquoi utiliser du Shell.Application ? Et non utiliser du pur VB (+ API éventuellement) ? Car c'est plutot reservé au script ça....
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
Titeuf a écrit :
bonsoir, mon appli se lance à partir d'un Sub main (voir code si dessous) c'est le code complet de mon prog ci-dessous donc le probleme ne peut venir que de la et j'ai executer le code une première fois sa a marché (essayé avec l'argument "-search") mais maintenant si j'essai de lancer à nouveau le prog avec le meme argument ou en changeant d'argument qui font apellent à diverses méthodes de shell.application ne marche plus rien ne se passe pourquoi ? faudrait-il détruire l'objet wshshell une fois l'action passée ? merci
Private Sub Main()
'var.locale Dim WshShell As Object Set WshShell = CreateObject("Shell.Application")
Select Case Command Case "-run" WshShell.FileRun Case "-search" WshShell.FindFiles Case "-support" WshShell.Help End Select
End Sub
Salut,
Sinon oui, il est conseillé de détruire ton objet :
Set WshShell = Nothing
Mais pourquoi utiliser du Shell.Application ? Et non utiliser du pur VB (+
API éventuellement) ? Car c'est plutot reservé au script ça....
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/
Titeuf <zititeuf@no-spam.org> a écrit :
bonsoir,
mon appli se lance à partir d'un Sub main (voir code si dessous)
c'est le code complet de mon prog ci-dessous donc le probleme ne peut
venir que de la
et j'ai executer le code une première fois sa a marché (essayé avec
l'argument "-search")
mais maintenant si j'essai de lancer à nouveau le prog avec le meme
argument ou en changeant d'argument qui font apellent à diverses
méthodes de shell.application ne marche plus
rien ne se passe
pourquoi ?
faudrait-il détruire l'objet wshshell une fois l'action passée ?
merci
Private Sub Main()
'var.locale
Dim WshShell As Object
Set WshShell = CreateObject("Shell.Application")
Select Case Command
Case "-run"
WshShell.FileRun
Case "-search"
WshShell.FindFiles
Case "-support"
WshShell.Help
End Select
Sinon oui, il est conseillé de détruire ton objet :
Set WshShell = Nothing
Mais pourquoi utiliser du Shell.Application ? Et non utiliser du pur VB (+ API éventuellement) ? Car c'est plutot reservé au script ça....
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/ http://apisvb.europe.webmatrixhosting.net/
Titeuf a écrit :
bonsoir, mon appli se lance à partir d'un Sub main (voir code si dessous) c'est le code complet de mon prog ci-dessous donc le probleme ne peut venir que de la et j'ai executer le code une première fois sa a marché (essayé avec l'argument "-search") mais maintenant si j'essai de lancer à nouveau le prog avec le meme argument ou en changeant d'argument qui font apellent à diverses méthodes de shell.application ne marche plus rien ne se passe pourquoi ? faudrait-il détruire l'objet wshshell une fois l'action passée ? merci
Private Sub Main()
'var.locale Dim WshShell As Object Set WshShell = CreateObject("Shell.Application")
Select Case Command Case "-run" WshShell.FileRun Case "-search" WshShell.FindFiles Case "-support" WshShell.Help End Select
End Sub
Titeuf
c'est juste pour la taille de l'exe :) effectivement dans un autre cas j'aurais utilisé les api
c'est juste pour la taille de l'exe :)
effectivement dans un autre cas j'aurais utilisé les api
