得到某目录下绝对地址文件名

得到某目录下绝对地址文件名

        Dim a As String = "c:\"
        For Each ws In My.Computer.FileSystem.GetFiles(a)
            Dim kzm As String = ws.Substring(InStrRev(ws, "."), ws.Length - InStrRev(ws, ".")) '定义扩展名变量
            If kzm = "gif" Or kzm = "jpg" Then '这里一定要注意扩展名的大小写，如avi<>AVI的
                Me.ListBox1.Items.Add(ws)
            End If
        Next