VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   6705
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   8955
   LinkTopic       =   "Form1"
   ScaleHeight     =   6705
   ScaleWidth      =   8955
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command3 
      Caption         =   "Open"
      Height          =   735
      Left            =   6480
      TabIndex        =   5
      Top             =   3720
      Width           =   1935
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Show Preview"
      Default         =   -1  'True
      Height          =   735
      Left            =   4440
      TabIndex        =   4
      Top             =   3720
      Width           =   1935
   End
   Begin VB.CommandButton Command1 
      Caption         =   "GO"
      Height          =   375
      Left            =   8040
      TabIndex        =   3
      Top             =   120
      Width           =   615
   End
   Begin VB.TextBox Text1 
      Height          =   285
      Left            =   120
      TabIndex        =   2
      Text            =   "C:\Documents and Settings\Mike\Local Settings\Temporary Internet Files\Content.IE5"
      Top             =   120
      Width           =   7815
   End
   Begin VB.DirListBox Dir1 
      Height          =   3015
      Left            =   120
      TabIndex        =   1
      Top             =   480
      Width           =   2175
   End
   Begin VB.FileListBox File1 
      Height          =   3015
      Left            =   2400
      TabIndex        =   0
      Top             =   600
      Width           =   6375
   End
   Begin VB.Image Image1 
      Height          =   2895
      Left            =   120
      Stretch         =   -1  'True
      Top             =   3720
      Width           =   4215
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub OpenAnyFile(Path)
Call ShellExecute(0&, vbNullString, Path, vbNullString, vbNullString, vbNormalFocus)
End Sub
Private Sub Command1_Click()
On Error Resume Next
Dir1.Path = Text1
End Sub

Private Sub Command2_Click()
On Error Resume Next
Image1.Picture = LoadPicture(Dir1.Path & "\" & File1.List(File1.ListIndex))

End Sub

Private Sub Command3_Click()
OpenAnyFile Dir1.Path & "\" & File1.List(File1.ListIndex)

End Sub


Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub