Visual Basic

dirStrDate = String.Format("K:\test\{0}", dirDate.ToString("MMyy"))

If System.IO.Directory.Exists(dirStrDate) Then

    Public Sub AddThumbnails()<br />
<br />
        Dim strFiles() As String<br />
        Dim intCounter As Integer = 0<br />
        Dim intTotalFiles As Integer = 0<br />
        Dim imgThumbNail As Image<br />
<br />
        Dim imgcallback As Image.GetThumbnailImageAbort = New Image.GetThumbnailImageAbort(AddressOf ThumbCallback)<br />
<br />
        strFiles = System.IO.Directory.GetFiles("C:\Test1")<br />
        intTotalFiles = strFiles.GetLength(0)<br />
<br />
        If intTotalFiles = 0 Then<br />
            Exit Sub<br />
        End If<br />
<br />
        Me.lvPics.LargeImageList = ilPicts<br />
        Me.ilPicts.ImageSize = New Size(96, 96)<br />
<br />
        ilPicts.Images.Clear()<br />
        lvPics.Items.Clear()<br />
<br />
        Do Until intCounter = intTotalFiles<br />
            imgThumbNail = Image.FromFile(strFiles(intCounter))<br />
            ilPicts.Images.Add(imgThumbNail.GetThumbnailImage(96, 96, imgcallback, System.IntPtr.Zero))<br />
            lvPics.Items.Add(strFiles(intCounter), intCounter)<br />
            intCounter = intCounter + 1<br />
<br />
        Loop<br />
<br />
    End Sub

Imports System.IO
.
.
.
Dim path As String
path = Application.ExecutablePath()
path = path.SubString(1, path.LastIndexOf(Path.DirectorySeparatorChar))

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown<br />
        If e.KeyCode = Keys.F3 Then<br />
            Dim f As New Form2<br />
            f.Show()<br />
            e.Handled = True<br />
        End If<br />
End Sub