explorer un dossier, récuperer le chemin d'un executableRésolu

Question

Salut,
Je suis débutant en VBA, travaille sur Catia.
Mon explorateur me limite au dossier. Je récupère donc le chemin du dossier de travail dans une textbox.
Je souhaiterai donc savoir comment afficher le contenu de ce dossier pour ensuite sélectionner l'exécutable et récupérer son chemin dans une seconde textbox. Cet exécutable sera lancé ensuite par la suite grâce à shell .
Merci d'avance...

voici mon code :


Private Sub CommandButton1_Click()

Dim objShell As Object, objFolder As Object, oFolderItem As Object

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "", &H1&)

On Error Resume Next
Set oFolderItem = objFolder.Items.Item
chooseFolder = oFolderItem.Path
TextBox1.Text = chooseFolder

End Sub

javascript:void(0);

ucfoutu · Accepted Answer

Re...
Veux-tu bien en finir avec ce FSO devenu complètement inutile, oui ? ...

Private Sub CommandButton1_Click() 
  dim dossier as string, filtre as string, fichiers as string
  dossier = C\blabla\blabla\ ' <<<<==== ici ton dossier à fouiller, terminé par un \ 
  filtre = "*.exe" ' <<<<<<<<<<<<<<<<<<======= ici ton filtre à toi
  fichiers = Dir(dossier & filtre, vbNormal Or vbHidden) 
  Do While fichiers <> "" 
    ListBox1.AddItem fichiers 
    fichiers = Dir 
  Loop 

End Sub 

Voilà ! C'est celà qui remplira ta listbox nommée ListBox1 (avec tous les fichiers correspondant à ton filtre).

La manière de sélectionner ensuite dans la listbox (au click) est autre chose (mais je pense que tu la connais, au moins... non ?... si non plus, tu dis ...)
____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.

ucfoutu · Answer

Bonjour,
Ouvre cette discussion :

http://www.vbfrance.com/forum/sujet-LANCEMENT-AUTOMATIQUE-VIDEOS_1385236.aspx
et va directement à la réponse acceptée (en vert, donc). Elle est ta solution 
____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.

meta4ik · Answer

Merci de ta réponse... mais je n'arrive pas à le faire fonctionner. J'ai essayer de l'intégrer à **** et comme ci-dessous mais... oups ça ne fait rien.
Merci encore...

Private Sub CommandButton1_Click()

Dim objShell As Object, objFolder As Object, oFolderItem As Object
    
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "", &H1&)
    
On Error Resume Next
Set oFolderItem = objFolder.Items.Item
chooseFolder = oFolderItem.Path
TextBox1.Text = chooseFolder
****
End Sub

Private Sub ListBox1_Click()

dossier = TextBox1.Value ' ton chemin de dossier
filtre = "*.exe" ' ton filtre
fichiers = Dir(dossier & filtre, vbNormal Or vbHidden)
Do While fichiers <> ""
     ListBox1.AddItem fichiers
     fichiers = Dir
Loop

End Sub

javascript:void(0);

meta4ik · Answer

Au top, je te remercie...
J'utilise le FSO (objShell.BrowseForFolder et objFolder.Items.Item... si j'ai bien compris ce qu'était le FSO) afin de parcourir le disque et de récupérer le chemin du dossier de travail dans une textbox (car j'utilise ce chemin pour utiliser plusieurs fichiers qui s'y trouvent).

C'est pour cela que dans le code que tu m'as passer j'ai modifié par : 
Cheminchoisi = TextBox1.Value
  dossier = Cheminchoisi & ""

Pour lancer l'exécutable sélectionné dans la ListBox(ligne en bleu), le code est :

'Lancer l'exécutable
Dim Executable As Variant
cheminexe = ListBox1.Value
Executable = Cheminchoisi & "" & cheminexe
Shell (Accouplment_boulonne_exe)

Comme ça, It's Works !!!!
Merci Encore...
javascript:void(0);

meta4ik · Answer

Ou pas...
Je change de pc j'ai introduis le même code et il ne reconnait pas le cheminexe (il trouve "" alors que pour Cheminchoisi "C:/....").

Et donc l'exécutable ne se lance pas...

meta4ik · Answer

excuse, c'est bon!
Merci encore !!

Explorer un dossier, récuperer le chemin d'un executable

6 réponses

Votre réponse

Discussions similaires