mettre un combobox avec une liste de fichiers

Bonjour,
comment on fais si on veut créer un combobox avec la liste des fichiers qu'on a dans un répertoire qu'on précise auparavnt
exemple :
un combobox avec la liste des fichiers *.pdf qui se trouvent dans F:\Travail\ ?
merci d'avance

Un petit code vite fait, y'a surement mieux mais ca devrait marcher:

Dim Variable As String
Private Sub Command1_Click()
Variable = Dir("F:\Travail\*.pdf", vbNormal)
If Variable <> Empty Then
Variable = Left(Variable, Len(Variable) - 4) 'On prend le nom du fichier sans l'extension
Combo1.AddItem (Variable)
End If

While Variable <> Empty
Variable = Dir

If Variable <> Empty Then
Variable = Left(Variable, Len(Variable) - 4)
Combo1.AddItem (Variable)
End If

Wend
End Sub

Merci beaucoup pour ta réponse
je vais essayer de trouver une solution pour cacher le boutton,car je veux garder un chemin fixce pour la liste des fichiers donc pas besoin du boutton,
merci qd meme @+


-------------------------------
Réponse au message :
-------------------------------

Un petit code vite fait, y'a surement mieux mais ca devrait marcher:

Dim Variable As String
Private Sub Command1_Click()
Variable = Dir("F:\Travail\*.pdf", vbNormal)
If Variable <> Empty Then
Variable = Left(Variable, Len(Variable) - 4) 'On prend le nom du fichier sans l'extension
Combo1.AddItem (Variable)
End If

While Variable <> Empty
Variable = Dir

If Variable <> Empty Then
Variable = Left(Variable, Len(Variable) - 4)
Combo1.AddItem (Variable)
End If

Wend
End Sub

Bah si t'as pas besoin du bouton, mets le code dans la procédure load de ta form (form_load())

Merci beaucoup ce code fonctionne tres bien ,
@++