易语言目录文件

Ⅰ 易语言列举运行目录文件夹

用ListView控件列举指定目录中的文件，以列举C盘文件目录为例子：

procere TForm1.Button1Click(Sender: TObject);
var
SearchRec : TSearchRec;
Path : String;
Attr : integer;
Found : integer;
begin
Path := 'c:\*.*';//设定要专显示的路径
Attr := faAnyFile;
Found := FindFirst(Path, Attr, SearchRec);//查找文件属
while Found = 0 do
begin
ListView1.Items.Add; //添加内容
ListView1.Items[ListView1.Items.Count-1].Caption := (SearchRec.Name);
Found := FindNext(SearchRec);
end;
FindClose(SearchRec);//停止查找
end;

Ⅱ 易语言怎样显示指定目录内所有的文件和文件夹

.版本 2
.支持库 iext

.子程序 目录文件夹
.局部变量回 link, 文本型
.局部变量 link1, 文本型
.局部变量 目录, 文本型

超级列表框1.全部答删除 ()
目录 ＝ 驱动器框1.驱动器 ＋ “:\*”
link ＝ 寻找文件 (目录, #子目录)
.判断循环首 (link ≠ “”)
.如果真 (link ≠ “.” 且 link ≠ “..”)
超级列表框1.插入表项 (, link, 0, , , )
.如果真结束

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

link1 ＝ 寻找文件 (, )
.判断循环尾 ()

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

目录文件夹 ()

---------------------------------
组件2个 超级列表框+驱动器

源码粘贴进去就OK

Ⅲ 怎么让易语言运行当前目录文件

很简单。代码如下：

.程序集 窗口程序集1

.子程序 _按钮1_被单击

运行 (取运行目录 () ＋ “\123.exe”, 假, )

Ⅳ 易语言 打开当前目录的文件夹

取运行目录（）+“\”这样取出的就是
当前程序所在的文件夹的地址。

Ⅳ 易语言 如何 列出 指定目录下 所有 文件名

一个简单的、、、

.版本 2
.支持库 EThread

.程序集 窗口程序集1
.程序集变量 是否停止, 逻辑型专
.程序集变量 列表属框文件名, 文本型, , "0"

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

编辑框1.内容 ＝ 取运行目录 () ＋ “\”
组合框1.加入项目 (“*”, )
组合框1.加入项目 (“exe”, )
组合框1.加入项目 (“jpg”, )
组合框1.加入项目 (“bmp”, )
组合框1.现行选中项 ＝ 0

.子程序 _按钮1_被单击

是否停止 ＝ 假
启动线程 (&子程序1, , )

.子程序 子程序1
.局部变量 表项
.局部变量 路径, 文本型
.局部变量 文件名, 文本型

.如果真 (是否停止 ＝ 真) ' 搜索被停止，则返回
返回 ()
.如果真结束
文件名 ＝ 寻找文件 (编辑框1.内容 ＋ 组合框1.内容, )
.判断循环首 (文件名 ≠ “”) ' 显示找到的文件
列表框1.加入项目 (文件名, )
加入成员 (列表框文件名, 编辑框1.内容 ＋ 文件名)
文件名 ＝ 寻找文件 (, )
.判断循环尾 ()

.子程序 _按钮2_被单击

是否停止 ＝ 真

Ⅵ 易语言如何做到取根目录下目录中的文件 我这样做哪里错了吗

〈文本型〉 取特定目录 （整数型 欲获取目录类型）
〈文本型〉 取运行目录 （）
取运行目录是不能有参数的
如：
取运行目录()+"\软件\FLASH\快速安装.exe"

Ⅶ 易语言如何把一个文件放到指定目录下。（目录自选）

复制文件?写到制文件?

.版本 2
.支持库 shell
目录 ＝ 浏览文件夹 (“请指定目录...”, )
.如果真 (改变目录 (目录))
' 检测 浏览文件夹() 返回的目录是否有效
改变目录 (取运行目录 ())
' 1
复制文件 (源文件, 目录 ＋ “\” ＋ 文件名)
' 2
写到文件 (目录 ＋ “\” ＋ 文件名, 字节集)
.如果真结束

Ⅷ 易语言如何打开运行目录下的所有文件

首先把文件枚举出来，例:
添加一个列表框。
_子程序_启动窗口_创建完毕_
枚举文件()
_子程序_枚举文件
局部变量 文件路径 文本型
局部变量 文件名称 文本型
文件路径＝取运行目录()＋"\*.*"
文件名称＝寻找文件(文件路径，)
判断循环首(文件名称≠"")
列表框1.加入项目(取文本左边(文件路径，取文本长度(文件路径)–3)＋文件名称，)
文件名称＝寻找文件(，)
判断循环尾()
这样就把运行目录下的文件枚举在列表框里面了，想要打开可以:
点击选中列表框，然后在左边点属性点上方的三角尖，选中列表框双击选择项，会自动添加一个子程序，在那个子程序下写:
打开指定网址(列表框1.取项目文本(列表框1.现行选中项))
这样双击列表框的项目就能打开文件。

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

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

版本 2

子程序

_按钮1_被单击

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

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

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

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

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

判断循环尾 ()

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

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

.版本 2

.支持库 iext

.子程序 目录文件夹
.局部变量 link, 文本型
.局部变量 link1, 文本型
.局部变量 目录, 文本型

超级列表框1.全部删除 ()
目录 ＝ 驱动器框1.驱动器 ＋ “:*”
link ＝ 寻找文件 (目录, #子目录)
.判断循环首 (link ≠ “”)

.如果真 (link ≠ “.” 且 link ≠ “..”)
超级列表框1.插入表项 (, link, 0, , , )
.如果真结束

link ＝ 寻找文件 (, #子目录)
.判断循环尾 ()
link1 ＝ 寻找文件 (目录, #子目录)
.判断循环首 (link1 ≠ “”)

.如果真 (link1 ≠ “.” 且 link1 ≠ “..”)
超级列表框1.插入表项 (, link1, 1, , , )
.如果真结束

link1 ＝ 寻找文件 (, )
.判断循环尾 ()

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

目录文件夹 ()

组件2个 超级列表框+驱动器

以下为代码图：

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