『壹』 易语言如何获取文件夹内的所有文件
显示指定目录内所有的文件和文件夹的代码如下：
.版本 2
.支持库 iext
.子程序 目录文件夹.局部变量 link, 文本型.局部变量 link1, 文本型.局部变量 目录, 文本型超级列表框1.全部删除 ()目录 ＝ 驱动器框1.驱动器 ＋ “:*”link ＝ 寻找文件 (目录, #子目录).判断循环首 (link ≠ “”)
.如果真 (link ≠ “.” 且 link ≠ “..”)超级列表框1.插入表项 (, link, 0, , , ).如果真结束link ＝ 寻找文件 (, #子目录).判断循环尾 ()link1 ＝ 寻找文件 (目录, #子目录).判断循环首 (link1 ≠ “”)
.如果真 (link1 ≠ “.” 且 link1 ≠ “..”)超级列表框1.插入表项 (, link1, 1, , , ).如果真结束link1 ＝ 寻找文件 (, ).判断循环尾 ().子程序 _驱动器框1_驱动器被改变目录文件夹 ()
组件2个 超级列表框+驱动器以下为代码图：
参考资料来源：网络-易语言
『贰』 易语言制作树形框遍历指定文件夹下文件夹和TXT文本，逻辑性强的来看下。
保存是加个 序号从上到下。 读取时 按序号读就不会错了。 如果有插入项 插入项后边的序号都必须加1如果有删除项 删除项后边的序号都必须减1
『叁』 易语言如何实现定时自动按顺序选择文件
.版本 2.支持库 EThread.支持库 spec.程序集 窗口程序集_启动窗口.子程序 _按钮1_被单击启动线程 (&子程序1, , ).子程序 子程序1遍历文件 (“C:\Users\Administrator\Desktop\新建文件夹\”).子程序 遍历文件, 文本型.参数 遍历目录, 文本型.局部变量 临时_文件, 文本型.局部变量 临时_创建时间, 文本型.局部变量 数组1, 文本型, , "0".局部变量 数组2, 整数型, , "0".局部变量 数组3, 整数型, , "0".局部变量 i, 整数型.局部变量 s, 整数型.局部变量 文本, 文本型临时_文件 ＝ 寻找文件 (遍历目录 ＋ “\*.*”, ).判断循环首 (临时_文件 ≠ “”) 临时_文件 ＝ 寻找文件 (, ) .如果真 (临时_文件 ≠ “”) 文件_取时间 (遍历目录 ＋ 临时_文件, 临时_创建时间) ' 调试输出 (临时_文件, 到长整数 (时间_取现行时间戳 (真)) － 时间_北京转格林威治 (到时间 (临时_创建时间))) 加入成员 (数组1, 临时_文件) 加入成员 (数组2, 到长整数 (时间_取现行时间戳 (真)) － 时间_北京转格林威治 (到时间 (临时_创建时间))) 加入成员 (数组3, 到长整数 (时间_取现行时间戳 (真)) － 时间_北京转格林威治 (到时间 (临时_创建时间))) .如果真结束.判断循环尾 ()数组排序 (数组3, 真).计次循环首 (取数组成员数 (数组3), i) .计次循环首 (取数组成员数 (数组2), s) .如果真 (数组3 [i] ＝ 数组2 [s]) 文件_取时间 (遍历目录 ＋ 数组1 [s], 临时_创建时间) 调试输出 (数组1 [s], 临时_创建时间) 文本 ＝ 文本 ＋ 数组1 [s] ＋ #换行符 数组2 [s] ＝ 999999999999 .如果真结束 .计次循环尾 ().计次循环尾 ()返回 (文本)
『肆』 易语言 怎么寻找所有文件
首先要枚举出硬盘分区根目录，然后逐个根目录进行寻找文件，最后如果找到123.dll，弹出一个信息框，为“123.dll”代码如下：.版本2.支持库eapi.子程序_按钮1_被单击.局部变量文本数组,文本型,,"0".局部变量i,整数型文本数组＝取驱动器列表(1)'这里枚举出硬盘分区根目录.计次循环首(取数组成员数(文本数组),i)遍历目录(文本数组[i])处理事件().计次循环尾().子程序遍历目录.参数参目录,文本型.局部变量文件名,文本型.局部变量目录数组,文本型,,"0".局部变量i,整数型.局部变量文件类型文件类型＝位或(#存档文件,#只读文件,#系统文件,#隐藏文件)文件名＝寻找文件(参目录＋“\*.*”,文件类型).如果真(文件名＝“”)返回().如果真结束.循环判断首().如果(位与(取文件属性(参目录＋“\”＋文件名),#子目录)≠0)加入成员(目录数组,文件名).否则.如果真(文件名＝“123.dll”)'判断文件是否存在信息框(“123.dll”,0,)'如果存在弹出一个信息框返回()'然后终止搜索.如果真结束.如果结束文件名＝寻找文件(,文件类型).循环判断尾(文件名≠“”).计次循环首(取数组成员数(目录数组),i).如果真(目录数组[i]≠“.”且目录数组[i]≠“..”)遍历目录(参目录＋“\”＋目录数组[i]).如果真结束.计次循环尾()代码结束控件只需要一个按钮，名称为按钮1
『伍』 易语言遍历目录
版本 2 .子程序 _按钮1_被单击 .局部变量 文件名称, 文本型 文件名称 ＝ 寻找文件 (“d:\欲取目录\*.*”, ) .判断循环首 (文件名称 ≠ “”) 列表框1.加入项目 (文件名称, ) 文件名称 ＝ 寻找文件 (, ) .判断循环尾 ()
『陆』 易语言 遍历指定路径下所有文件夹 包括子文件夹
超级列表框1.全部删除 ()目录 ＝ 驱动器框1.驱动器 ＋ “:\*”link ＝ 寻找文件 (目录, #子目录).判断内循环首 (link ≠ “”) .如果容真 (link ≠ “.” 且 link ≠ “..”) 超级列表框1.插入表项 (, link, 0, , , ) .如果真结束 link ＝ 寻找文件 (, #子目录).判断循环尾 ()link1 ＝ 寻找文件 (目录, #子目录).判断循环首 (link1 ≠ “”) .如果真 (link1 ≠ “.” 且 link1 ≠ “..”) 超级列表框1.插入表项 (, link1, 1, , , ) .如果真结束 link1 ＝ 寻找文件 (, ).判断循环尾 ().子程序 _驱动器框1_驱动器被改变目录文件夹 ()
『柒』 易语言遍历某个文件下的所有TXT文件，然后把遍历出来的这些文件都删除掉
.版本 2.支持库 shell.子程序 __启动窗口_创建完毕.局部变量 文件名, 文本型.局部变量 文件, 文本型, , "0".局部变量 目录, 文本型.局部变量 计次, 整数型编辑框1.是否允许多行 ＝ 真编辑框1.滚动条 ＝ 2目录 ＝ 浏览文件夹 (“请选择目录！”, )目录 ＝ 目录 ＋ “\”文件名 ＝ 寻找文件 (“*.txt”, ).判断循环首 (文件名 ≠ “”) 编辑框1.加入文本 (文件名, #换行符) 加入成员 (文件, 文件名) 文件名 ＝ 寻找文件 (, ).判断循环尾 ().如果真 (信息框 (“是否删除这些文件？”, #是否钮, ) ＝ #是钮) .计次循环首 (取数组成员数 (文件), 计次) 删除文件 (目录 ＋ 文件 [计次]) .计次循环尾 ().如果真结束结束 ()
『捌』 易语言怎么运行子文件夹里的程序
运行(取运行目录()+“\子文件夹2\1.exe”)只要文件夹2的位置相对于文件夹1不变，这样就行。
『玖』 易语言如何连接局域网中的某个共享文件夹，然后遍历该文件夹下载其中所有文件
局域网操作支持库先定义一个变量，类型为“局域网操作”，比如mynet可以先映射资源,在复制mynet.映射资源然后 复制文件
『拾』 vb或易语言中如何遍历c盘中的文件夹，注意只是文件夹，把文件名读出来
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盘所有文件名
