รบกวนเรื่องการตรวจจำนวนไฟล์และนามสกุลไฟล์ค่ะ ขอvb 2008 นะค่ะ

 Dim _Dir As New DirectoryInfo("C:\Documents and Settings\tom\Desktop\TEST")
        Dim _File As FileInfo
        Dim _Count As Integer
        Me.Text = 0
        For Each _File In _Dir.GetFiles
            If UCase(_File.Name.Split(".")(1)) = "SLN" Then
                Me.Text += 1
            End If
            _Count += 1
        Next
        Me.Text = "พบไฟล์ SLN จำนวน " & Me.Text & " โดยมีจำนวนไฟล์ทั้งสิ้น " & _Count & " ไฟล์"