文件管理 · 2022年8月13日

易语言取文件夹数组和文件夹|易语言如何获取文件夹内的所有文件

❶ 易语言如何获取文件夹内的所有文件

显示指定目录内所有的文件和文件夹的代码如下:

.版本 2

.支持库 iext

.子程序 目录文件夹.局部变量 link, 文本型.局部变量 link1, 文本型.局部变量 目录, 文本型超级列表框1.全部删除 ()目录 = 驱动器框1.驱动器 + “:*”link = 寻找文件 (目录, #子目录).判断循环首 (link ≠ “”)

.如果真 (link ≠ “.” 且 link ≠ “..”)超级列表框1.插入表项 (, link, 0, , , ).如果真结束link = 寻找文件 (, #子目录).判断循环尾 ()link1 = 寻找文件 (目录, #子目录).判断循环首 (link1 ≠ “”)

.如果真 (link1 ≠ “.” 且 link1 ≠ “..”)超级列表框1.插入表项 (, link1, 1, , , ).如果真结束link1 = 寻找文件 (, ).判断循环尾 ().子程序 _驱动器框1_驱动器被改变目录文件夹 ()

组件2个 超级列表框+驱动器以下为代码图:

参考资料来源:网络-易语言

❷ 易语言如何取文件所在的目录

写到文件 (取运行目录 () + “123.bat”, 到字节集 (编辑框1.内容))就可以了。

版本 2

子程序

_按钮1_被单击内

局部变容量 文件名称, 文本型

文件名称 = 寻找文件 (“d:欲取目录*.*”, )

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

列表框1.加入项目 (文件名称, )

文件名称 = 寻找文件 (, )

判断循环尾 ()

❸ 易语言怎样取文件夹中的文件数

临时文件名=来寻找文件自(文件夹目录+“/*.*”,).判断循环首(临时文件名≠“”) 文件个数= 文件个数+ 1 临时文件名=寻找文件(,).判断循环尾()以上只能取一个文件夹里的文件数,还不包括子目录里的。 你可以先寻找文件夹里的子目录把他放在一个数组变量里,用多次寻找文件指令把所有文件里和子目录里的文件都加起来就可以了。具体的命令使用你看一下核心支持库-磁盘操作-寻找文件的帮助

❹ 易语言中如何取一个文件夹的指定类型的文件数目

亲测。绝对可以抄!放两个编袭辑框,一个按钮代码==================================.版本 2.子程序 _按钮1_被单击.局部变量 数目, 整数型.如果真 (倒找文本 (编辑框1.内容, “\”, , 假) ≠ 取文本长度 (编辑框1.内容)) 编辑框1.加入文本 (“\”).如果真结束.如果真 (寻找文件 (编辑框1.内容 + “*.” + 编辑框2.内容, ) ≠ “”) 数目 = 数目 + 1 .判断循环首 (寻找文件 (, ) ≠ “”) 数目 = 数目 + 1 .判断循环尾 ().如果真结束信息框 (编辑框2.内容 + “文件类型的文件共有” + 到文本 (数目) + “个。”, 64, “搜寻结果”)

❺ 易语言如何读取指定文件夹下面的所有*.txt的文件

你说的这种,要搜索指定文件夹下的所有文件,包括子文件下的文件。那么你要用到递归方式来搜索,你欠缺基础知识的学习,呵呵。下面,我提供给你,我专门制作的子程序,用来调用递归搜索的,只要你看的明白就成。源码如下: .版本 2.子程序 系统_搜索所有文件, , 公开, 递归方式搜索目录下的所有符合文件,参数3和参数4为程序集型数组变量,返回[搜索到文本型数组].参数 要搜索的目录, 文本型, , 要搜索的目录(c:或c:\).参数 要搜索的文件, 文本型, 可空, [可空]要搜索的文件(a.exe或*.exe),如果为空默认搜索*.*.参数 返回路径加文件名数组, 文本型, 可空 数组, [可空]程序集型返回路径加文件名文本数组,要定义在程序集型数组变量。.参数 返回文件名数组, 文本型, 可空 数组, [可空]程序集型返回单纯的文件名文本数组,要定义在程序集型数组变量。.局部变量 文件名, 文本型.局部变量 路径加文件名数组, 文本型, 静态, "0", cjn_搜索所有文件调用.局部变量 文件名数组, 文本型, 静态, "0", cjn_搜索所有文件调用处理事件 ().如果真 (要搜索的文件 = “”) 要搜索的文件 = “*.*”.如果真结束.如果真 (取文本右边 (要搜索的目录, 1) ≠ “\”) 要搜索的目录 = 要搜索的目录 + “\”.如果真结束文件名 = 寻找文件 (要搜索的目录 + 要搜索的文件, ).判断循环首 (文件名 ≠ “”) 加入成员 (路径加文件名数组, 要搜索的目录 + 文件名) ' 此[搜索到的文件数组]数组变量未定义,可在编写的程序集中定义此数组(此为返回目录+文件名) 加入成员 (文件名数组, 文件名) ' 此[搜索到的文件数组]数组变量未定义,可在编写的程序集中定义此数组(此为返回单纯的文件) 文件名 = 寻找文件 (, ).判断循环尾 ()文件名 = 寻找文件 (要搜索的目录 + “*.*”, #子目录).判断循环首 (文件名 ≠ “”) .如果真 (取文本左边 (文件名, 1) ≠ “.”) 系统_搜索所有文件 (要搜索的目录 + 文件名, 要搜索的文件) .如果真结束 文件名 = 寻找文件 (, #子目录).判断循环尾 ()复制数组 (返回路径加文件名数组, 路径加文件名数组)复制数组 (返回文件名数组, 文件名数组)

❻ 易语言中如何取文件夹内的所有文件名前三位放入超级列表框第一列,后几位放入超级列表框第二列

.版本 2

.支持库 shell

.支持库 iext

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

.局部变量 目录, 文本型

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

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

.局部变量 计次, 整数型

.局部变量 行, 整数型

目录 = 浏览文件夹 (“请选择目录:”, 假)

.如果真 (目录 = “”)

目录 = 取运行目录 ()

.如果真结束

目录 = 目录 + “”

文件名 = 寻找文件 (目录 + “*.*”, )

.循环判断首 ()

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

文件名 = 寻找文件 (, )

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

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

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

文件名 = 取文本左边 (文件组 [计次], 3)

超级列表框1.置标题 (行, 0, 文件名)

文件名 = 取文本右边 (文件组 [计次], 取文本长度 (文件组 [计次]) - 倒找文本 (文件组 [计次], “.”, , 假))

超级列表框1.置标题 (行, 2, 文件名)

文件名 = 取文本中间 (文件组 [计次], 4, 取文本长度 (文件组 [计次]) - 取文本长度 (文件名) - 4)

超级列表框1.置标题 (行, 1, 文件名)

.计次循环尾 ()

❼ 易语言 怎么寻找所有文件

首先要枚举出硬盘分区根目录,然后逐个根目录进行寻找文件,最后如果找到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

.子程序_复制按钮_被单击

移动目录(“F: est”,“D: est”)

.子程序移动目录,,公开

.参数源目录,文本型,,被复制或移动的目录

.参数终目录,文本型,,移动或复制到的目录

.参数是否覆盖,逻辑型,可空,为空默认为真,强行覆盖,为假则不覆盖

.参数删除源目录,逻辑型,可空,为空默认为真,删除源目录,为假则不删除

.局部变量i,整数型

.局部变量目录列表定位,整数型

.局部变量当前路径,文本型

.局部变量目录名称,文本型

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

.局部变量目录列表,文本型,,"0"

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

.局部变量复制到的文件,文本型

.局部变量复制到的子目录,文本型

.局部变量临时,文本型,,"0"

.局部变量x,整数型

.局部变量临时文本,文本型

.如果真(是否为空(是否覆盖)=真)

是否覆盖=真

.如果真结束

.如果真(是否为空(删除源目录)=真)

删除源目录=真

.如果真结束

.如果真(取文本右边(源目录,1)≠“”)

源目录=源目录+“”

.如果真结束

.如果真(取文本右边(终目录,1)≠“”)

终目录=终目录+“”

.如果真结束

加入成员(目录列表,源目录)

创建目录(终目录)

目录列表定位=1

.判断循环首(目录列表定位≤取数组成员数(目录列表))

当前路径=目录列表[目录列表定位]

.如果真(取文本右边(当前路径,1)≠“”)

当前路径=当前路径+“”

.如果真结束

目录名称=寻找文件(当前路径+“*.*”,#子目录)

.判断循环首(目录名称≠“”)

.如果真(目录名称≠“.”且目录名称≠“..”)

加入成员(目录列表,当前路径+目录名称+“”)

.如果真结束

目录名称=寻找文件(,#子目录)

.判断循环尾()

目录列表定位=目录列表定位+1

.判断循环尾()

.变量循环首(1,取数组成员数(目录列表),1,i)

当前路径=目录列表[i]

文件名称=寻找文件(当前路径+“*.*”,)

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

加入成员(文件列表,当前路径+文件名称)

文件名称=寻找文件(,)

.判断循环尾()

.变量循环尾()

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

复制到的文件=取文本右边(文件列表[i],取文本长度(文件列表[i])-取文本长度(源目录))

复制到的子目录=取文本左边(复制到的文件,倒找文本(复制到的文件,“”,取文本长度(复制到的文件),假)-1)

临时=分割文本(复制到的子目录,“”,)

临时文本=“”

.计次循环首(取数组成员数(临时),x)

临时文本=临时文本+“”+临时[x]

创建目录(终目录+临时文本)

.计次循环尾()

.判断开始(文件是否存在(终目录+复制到的文件)=真)

.如果真(是否覆盖=真)

复制文件(文件列表[i],终目录+复制到的文件)

.如果真结束

.默认

复制文件(文件列表[i],终目录+复制到的文件)

.判断结束

.计次循环尾()

.如果真(删除源目录=真)

删除目录(源目录)

.如果真结束

❾ 易语言如何取指定目录下所有文件的绝对路径并加入文本型数组

.版本2.支持库spec.子程序文件搜索,文本型,公开,在指定目录下搜索文件.参数临时目录,文本型,,欲寻找的目录.参数列表框,列表框.局部变量临时文件名,文本型.局部变量临时子目录,文本型.局部变量临时内容,文本型.如果真(取文本右边(临时目录,1)≠“\”)临时目录=临时目录+“\”.如果真结束处理事件()临时文件名=寻找文件(临时目录+“*.*”,).判断循环首(临时文件名≠“”).如果真(临时文件名≠“.”)列表框.加入项目(临时目录+临时文件名,).如果真结束临时文件名=寻找文件(,).判断循环尾()临时子目录=寻找文件(临时目录+“*.*”,#子目录)调试输出(临时子目录).判断循环首(临时子目录≠“”).如果真(临时子目录≠“.”且临时子目录≠“..”)临时内容=文件搜索(临时目录+临时子目录,列表框).如果真(临时内容≠“”)返回(临时内容).如果真结束.如果真结束临时子目录=寻找文件(,#子目录).判断循环尾()返回(“”)

❿ 易语言怎么把指定文件夹复制到指定文件夹

.版本 2.支持库 shell.子程序 取目录下文件夹名, , , 2017-07-15.参数 目录, 文本型.参数 文件夹名组, 文本型, 参考 数组.局部变量 文件名, 文本型文件名 = 寻找文件 (目录 + “\*.*”, #子目录)清除数组 (文件夹名组).判断循环首 (文件名 ≠ “”).如果真 (文件名 ≈ “.”)文件名 = 寻找文件 (, #子目录)到循环尾 ().如果真结束加入成员 (文件夹名组, 文件名)文件名 = 寻找文件 (, #子目录).判断循环尾 ().子程序 取目录下文件名, , , 2017-07-15.参数 目录, 文本型.参数 文件名组, 文本型, 参考 数组.局部变量 文件名, 文本型.局部变量 i, 整数型文件名 = 寻找文件 (目录, )清除数组 (文件名组).判断循环首 (文件名 ≠ “”)加入成员 (文件名组, 文件名)文件名 = 寻找文件 (, ).判断循环尾 ().子程序 复制文件夹, , , 2017-07-15.参数 原目录, 文本型.参数 复制到的目录, 文本型.局部变量 文件夹, 文本型, , "0".局部变量 文件, 文本型, , "0".局部变量 i, 整数型.如果真 (文件是否存在 (复制到的目录) = 假)创建目录 (复制到的目录).如果真结束取目录下文件名 (原目录 + “\*.*”, 文件).计次循环首 (取数组成员数 (文件), i).如果真 (复制文件 (原目录 + “\” + 文件 [i], 复制到的目录 + “\” + 文件 [i]) = 假)信息框 (“复制” + #左引号 + 复制到的目录 + “\” + 文件 [i] + #右引号 + “失败”, 0, , )到循环尾 ().如果真结束.如果真结束.计次循环尾 ()取目录下文件夹名 (原目录, 文件夹).计次循环首 (取数组成员数 (文件夹), i)复制文件夹 (原目录 + “\” + 文件夹 [i], 复制到的目录 + “\” + 文件夹 [i]).计次循环尾 ()