- 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=143182)
-- 发布时间：2019/11/16 13:52:00
-- 循环文件夹下文件
For
Each File As String In FileSys.GetFiles("C:\\")Output.Show(File)
Next
老师：这句代码是For each循环，如何for i as integer 循环呢？
For file As Integer = 0 To FileSys.GetFiles("C:\\Users\\89284\\Desktop\\新建文件夹").Count - 1
Output.Show(FileSys.GetFiles(file))
Next
这样循环不出来，我的表格都是按顺便排序排好的，所以要for循环
此主题相关图片如下：123456.png
-- 发布时间：2019/11/16 13:58:00
--
这个和用for each还是for i as integer没有关系，for each默认也是按顺序的
dim lst as list(of string) = FileSys.GetFiles("C:\\")
lst.sort()
For Each File As String In lst
Output.Show(File)
Next
Output.Show(File)
Next
或
For i as integer = 0 to lst.count - 1
Output.Show(lst(i))
Next
Output.Show(lst(i))
Next
-- 发布时间：2019/11/16 14:44:00
--
此主题相关图片如下：678.png
-- 发布时间：2019/11/16 14:53:00
--
改为这样
dim lst as object = FileSys.GetFiles("C:\\")
或者
dim lst as system.collections.objectmodel.readonlycollection(of string) = FileSys.GetFiles("C:\\")