Jump to content
Posted 10 October 2008 - 02:45 PM
Posted 11 October 2008 - 02:14 AM
Dim mypath As String = "C:\" 'PLACE YOUR DIRECTORY HERE, I reccomend my.computer.filesystem.specialdirectories.programfiles.tostring ' Clear the list box and the picture box. Me.ListBox1.Items.Clear() Me.PictureBox1.ImageLocation = "" ' Add each image in the Pictures directory to list box. For Each foundImage As String In _ My.Computer.FileSystem.GetFiles( _ mypath, _ FileIO.SearchOption.SearchTopLevelOnly, "oliesimage.jpg", "*.exe*") 'Put either an extension or a file to search here, remember more than 1 can be searched. SearchTopLevelOnly to search 1 folder, SearchAllSubFolders to search all in the program files dir Me.textbox1.text = (foundImage) 'add the image firectory Next If Me.textbox1.text = "" Then 'If no images were found do this MsgBox("There are no .exe or oliesimage.jpg images in" _ & " the Picture folder.") End If
Me.PictureBox1.ImageLocation = Me.textbox1.text
Edited by PlyPencil, 11 October 2008 - 02:16 AM.
Posted 13 October 2008 - 11:35 AM
erm .png? just things for the background etc.
What kind of images?
0 members, 0 guests, 0 anonymous users