易语言 遍历指定路径下所有文件夹 包括子文件夹

超级列表框1.全部删除 ()

目录 ＝ 驱动器框1.驱动器 ＋ “:\*”

link ＝ 寻找文件 (目录, #子目录)

.判断循环首 (link ≠ “”)

.如果真 (link ≠ “.” 且 link ≠ “..”)

超级列表框1.插入表项 (, link, 0, , , )

.如果真结束

link ＝ 寻找文件 (, #子目录)

.判断循环尾 ()

link1 ＝ 寻找文件 (目录, #子目录)

.判断循环首 (link1 ≠ “”)

.如果真 (link1 ≠ “.” 且 link1 ≠ “..”)

超级列表框1.插入表项 (, link1, 1, , , )

.如果真结束

link1 ＝ 寻找文件 (, )

.判断循环尾 ()

.子程序 _驱动器框1_驱动器被改变

目录文件夹 ()

On Error Resume Next

Dim str1 As String, str2

Set fso = CreateObject("Scripting.FileSystemObject")

Set Folders = fso.GetFolder("c:\")

Set fFolder = Folders.SubFolders

Set fFile = Folders.Files

For Each fffolder In fFolder

str1 = str1 &" " &fffolder.Name

Next

MsgBox str1 '遍历输出c盘所有文件夹名

For Each fffile In fFile

str2 = str2 &" " &fffile.Name

Next

MsgBox str2 '遍历输出c盘所有文件名

.版本 2

.支持库 shell

.子程序 __启动窗口_创建完毕

.局部变量 文件名, 文本型

.局部变量 文件, 文本型, , "0"

.局部变量 目录, 文本型

.局部变量 计次, 整数型

编辑框1.是否允许多行 ＝ 真

编辑框1.滚动条 ＝ 2

目录 ＝ 浏览文件夹 (“请选择目录！”, )

目录 ＝ 目录 ＋ “\”

文件名 ＝ 寻找文件 (“*.txt”, )

.判断循环首 (文件名 ≠ “”)

编辑框1.加入文本 (文件名, #换行符)

加入成员 (文件, 文件名)

文件名 ＝ 寻找文件 (, )

.判断循环尾 ()

.如果真 (信息框 (“是否删除这些文件？”, #是否钮, ) ＝ #是钮)

.计次循环首 (取数组成员数 (文件), 计次)

删除文件 (目录 ＋ 文件 [计次])

.计次循环尾 ()

.如果真结束

结束 ()

---