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

récupérer le nom d'un executable pour le lancer [RESOLU] - VB/VBA/VBS - Programmation

Marsh Posté le 22-09-2005 à 10:14:08    

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
Reply

Marsh Posté le 22-09-2005 à 10:14:08   

Reply

Marsh Posté le 22-09-2005 à 13:45:43    

personne ??

Reply

Marsh Posté le 22-09-2005 à 14:27:59    

snifsnif

Reply

Marsh Posté le 23-09-2005 à 00:35:06    

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!
Reply

Marsh Posté le 23-09-2005 à 14:00:50    

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 :(

Reply

Marsh Posté le 23-09-2005 à 18:55:21    

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!
Reply

Marsh Posté le 26-09-2005 à 09:16:02    

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

Reply

Marsh Posté le 26-09-2005 à 21:40:18    

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

Reply

Marsh Posté le 27-09-2005 à 09:19:32    

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
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed