以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  遍历文件夹  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=171831)

--  作者:aaa1234
--  发布时间:2021/9/11 9:14:00
--  遍历文件夹
老师你好如何操作选择文件夹可以遍历里面关于图片格式的,弹出路径
--  作者:有点蓝
--  发布时间:2021/9/11 10:27:00
--  

dim lst as new list(of string)
lst.addrange({"jpg","png"})
For Each File As String In FileSys.GetFiles("C:\\")
dim s as string = FileSys.GetName(file).split(".")(1)
  if 
lst.contains(s) then
msgbox(file)
emd if
Next

--  作者:aaa1234
--  发布时间:2021/9/11 10:29:00
--  
那老师我想问一下有没有选择文件夹那种的
--  作者:有点蓝
--  发布时间:2021/9/11 11:03:00
--  
http://www.foxtable.com/webhelp/topics/0331.htm