How can i list item from folder 'My Picture' into a combobox. For example: I got 3 pictures named 'Vacation.jpg', 'Graduation.jpg' and 'Party.jpg' and i want them to be list into the combobox.

How can I do that?

Regads,
Mona

Hi

Assuming that the Combobox is on a userform, here is the code

Sub Add_Pics()

Dim sPath As String
Dim sDir

sPath = "c:\Documents and Settings\160831\My Documents\My Pictures\"

sDir = Dir(sPath & "*.jpg")
Do Until Len(sDir) = 0
    ComboBox1.AddItem sDir
    sDir = Dir
Loop


End Sub

Cheers
Shasur

http://www.dotnetdud.blogspot.com

VBA Tips & Tricks (http://www.vbadud.blogspot.com)

Hi Shasur,

Thanks, you always helps me... It really work. I changed the coding a little bit. I put in userform_initialize() like this:


Private Sub UserForm_Initialize()
Dim sPath As String
Dim sDir

sPath = "C:\Documents and Settings\Monal\My Documents\My Pictures\"

sDir = Dir(sPath & "*.jpg")
Do Until Len(sDir) = 0
    ComboBox1.AddItem sDir
    sDir = Dir
Loop
End Sub

Anyway, thanks.... That really help me lots...

Regards,
Mona