Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1441 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [RESOLU]récupérer le nom d'un executable pour le lancer

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[RESOLU]récupérer le nom d'un executable pour le lancer

n°1204878
jlestat
Posté le 22-09-2005 à 10:14:08  profilanswer
 

bonjour,
 
j'ai un petit problème.
je voudrais lancer un executable mais je ne connais pas son nom au moment de son execution (mise à jour anti virus).
comment puis je récupérer le nom complet de l'executable et ensuite le lancer ??
à moins que vous puissiez me donner l'equivalent de ceci sous vbs :  
ren *.exe nom.exe
merci d'avance de votre aide (j'ai chercher mais je n'ai rien trouver qui me correspond)
 :cry:


Message édité par jlestat le 27-09-2005 à 09:21:19
mood
Publicité
Posté le 22-09-2005 à 10:14:08  profilanswer
 

n°1205034
jlestat
Posté le 22-09-2005 à 13:45:43  profilanswer
 

personne ??

n°1205076
jlestat
Posté le 22-09-2005 à 14:27:59  profilanswer
 

snifsnif

n°1205644
AlainTech
Pas trouvé? Cherche encore!
Posté le 23-09-2005 à 00:35:06  profilanswer
 

Ben, si tu ne connais pas le nom, ça va être difficile de le lancer...


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
n°1205875
jlestat
Posté le 23-09-2005 à 14:00:50  profilanswer
 

oui mais si je cherche tout les point exe de mon repertoire (il n'y a jamais plus d'1 executable), je recup le nom et ensuite je le lance non ?
le probleme c'est que je ne sais pas comment faire :(

n°1206195
AlainTech
Pas trouvé? Cherche encore!
Posté le 23-09-2005 à 18:55:21  profilanswer
 

Ceci devrait pouvoir t'aider:

Dim oFSO
Dim sFolder
Dim oFolder
Dim oFile
Dim oFiles
 
 
Set oFSO = WScript.CreateObject("Scripting.FileSystemObject" )
 
sFolder = LeCheminDeTonRepertoire
 
Set oFolder = oFSO.GetFolder(sFolder)
Set oFiles = oFolder.Files
For Each oFile In oFiles
  If UCase(Right(oFile.Name, 3)) = "EXE" Then
    MsgBox(oFile.Name)
  End If
Next


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
n°1207349
jlestat
Posté le 26-09-2005 à 09:16:02  profilanswer
 

ok c'est genial !
maintenant je voudrais pouvoir lancer l'éxécutable, comment je fait (je sais je suis completement nul mais bon ...)

n°1208063
dodii
Posté le 26-09-2005 à 21:40:18  profilanswer
 

OK c'es simple tu aura juste a inserer la commande shell comme suit
 
Sub j()
 
Dim oFSO
Dim sFolder
Dim oFolder
Dim oFile
Dim oFiles
 
Set oFSO = WScript.CreateObject("Scripting.FileSystemObject" )
 
sFolder = LeCheminDeTonRepertoire
 
Set oFolder = GetFolder("c:\" )
Set oFiles = oFolder.Files
For Each oFile In oFiles
  If UCase(Right(oFile.Name, 3)) = "EXE" Then
    MsgBox (oFile.Name)
  Shell oFolder & "\" & oFile.Name 'appel de l'executabkle par le chemin complet (repertoire et nom)
  End If
Next
 
End Sub

n°1208331
jlestat
Posté le 27-09-2005 à 09:19:32  profilanswer
 

merci à tous je suis en train de vérifier que cela fonctionne correctement en tache planifiée ;)
 
edit :  
ça fonctionne nickel  
merci


Message édité par jlestat le 27-09-2005 à 09:20:59

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [RESOLU]récupérer le nom d'un executable pour le lancer

 

Sujets relatifs
[Résolu] Souci d'occupation mémoire[resolu] passer un mot écrit en hébreu via méthode GET
[résolu]Passage de variableProblème pour lancer une action
mini base de données en java pur[resolu][java] récuperer un tableau html.
[java] recuperer le code d'une page web. [RESOLU][RESOLU]Compter le nombre de mot...
Probleme de requete et de texte en php [Résolu, euh en fait non] 
Plus de sujets relatifs à : [RESOLU]récupérer le nom d'un executable pour le lancer


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR