Using Folders to change pictures.

[Onifiro]

This is a bit hard for me to describe but ill try my best. I made a program in visual basic and the GUI is made up of 5 image files. I want to have a skins folder in the root folder for the program filled with folders of other skins. I want to have the dropdown find the names of the other folders inside the skins folder and when they click that option set the picture files to the appropriate image files in that skin folder.

I tried my best to explain it.

Thankyou in advance.

[Hemant Pathak]

Control use
1. Dir1 and Visible Property=false
2. Combo Box

Private Sub GetChildFolder()
Dir1.Path = App.Path '& "\rootFolderName"
For i = 0 To Dir1.ListCount - 1
Combo1.AddItem TrimMark(Dir1.List(i))
Next
End Sub

Private Function TrimMark(str As String) As String
Dim i As Integer
i = 1
Do Until i = 0
i = InStr(1, str, "\")
str = Mid(str, i + 1)
If i = 0 Then Exit Do
Loop
TrimMark = str
End Function