得到某目录下绝对地址文件名
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