vb.net列出当前目录所有JPG图片文件的方法

下面是列出当前文件夹中所有JPG图片文件名的方法:

Dim str As String
        For Each file In My.Computer.FileSystem.GetFiles(Application.StartupPath)
            If System.IO.Path.GetExtension(file) = ".jpg" Then
                str = System.IO.Path.GetFileNameWithoutExtension(file)
                ListBox1.Items.Add(Application.StartupPath & str & ".jpg")
            End If
        Next