易语言文件拖放问题

学易未精

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
文件拖放	文件拖放

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

文件拖放.拖放对象_注册 (取窗口句柄 (), &接收拖放文件, 真)

子程序名	返回值类型	公开	备 注
接收拖放文件
参数名	类 型	参考	可空	数组	备 注
接收到的文件路径	整数型

变量名	类 型	静态	数组	备 注
数据内容	字节集

如果真 (取字节集长度 (数据内容) ＞ 0)
数据内容 ＝ 数据内容 ＋ 编码_Ansi到Utf8 ( #换行符 )
数据内容 ＝ 数据内容 ＋ 编码_Unicode到Utf8 (指针_到字节集W (接收到的文件路径))
写到文件 (取特定目录 (3) ＋ “文本文件.txt”, 数据内容)

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

文件拖放.拖放对象_撤销 ()

i支持库列表	支持库注释
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 shell<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 文件拖放, 文件拖放<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 文件拖放.拖放对象_注册 (取窗口句柄 (), &接收拖放文件, 真)<br /> <br /> .子程序 接收拖放文件<br /> .参数 接收到的文件路径, 整数型<br /> .局部变量 数据内容, 字节集<br /> <br /> .如果真 (取字节集长度 (数据内容) ＞ 0)<br />     数据内容 ＝ 数据内容 ＋ 编码_Ansi到Utf8 (#换行符)<br /> .如果真结束<br /> 数据内容 ＝ 数据内容 ＋ 编码_Unicode到Utf8 (指针_到字节集W (接收到的文件路径))<br /> 写到文件 (取特定目录 (3) ＋ “文本文件.txt”, 数据内容)<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 文件拖放.拖放对象_撤销 ()

我一次性拖拽了三个文件进去，文本文件.txt却只有一个路径，如果把数据内容设为全局变量，每次拖拽的文件路径会连续存在文本文件.txt，述求，希望能把每次拖拽的文件完整的存储在这个里面：文本文件.txt，例如，这次我拖拽了ABC三个文件，那么文本文件.txt里面就存在ABC，过了一会，我又拖拽了ACBDE，那么文本文件.txt里面就应该存在ACBDE，而不是存在：ABCACBDE，不知道我这个有没有大佬看懂，谢谢

花间一壶酒

那就先加入数组  再去重呗

Marvin

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
文件拖放	文件拖放
数据内容	字节集

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

文件拖放.拖放对象_注册 (取窗口句柄 (), &接收拖放文件, 真)

子程序名	返回值类型	公开	备 注
接收拖放文件
参数名	类 型	参考	可空	数组	备 注
接收到的文件路径	整数型

数据内容 ＝ {  }  ' 每次拖放前先清空，避免累积
数据内容 ＝ 数据内容 ＋ 编码_Unicode到Utf8 (指针_到字节集W (接收到的文件路径))
数据内容 ＝ 数据内容 ＋ 编码_Ansi到Utf8 ( #换行符 )
写到文件 (取特定目录 (3) ＋ “文本文件.txt”, 数据内容)

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

文件拖放.拖放对象_撤销 ()

i支持库列表	支持库注释
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 shell<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 文件拖放, 文件拖放<br /> .程序集变量 数据内容, 字节集<br /> <br /> .子程序 __启动窗口_创建完毕<br /> 文件拖放.拖放对象_注册 (取窗口句柄 (), &接收拖放文件, 真)<br /> <br /> .子程序 接收拖放文件<br /> .参数 接收到的文件路径, 整数型<br /> <br /> 数据内容 ＝ {  }  ' 每次拖放前先清空，避免累积<br /> 数据内容 ＝ 数据内容 ＋ 编码_Unicode到Utf8 (指针_到字节集W (接收到的文件路径))<br /> 数据内容 ＝ 数据内容 ＋ 编码_Ansi到Utf8 (#换行符)<br /> 写到文件 (取特定目录 (3) ＋ “文本文件.txt”, 数据内容)<br /> <br /> .子程序 __启动窗口_将被销毁<br /> 文件拖放.拖放对象_撤销 ()

这样每次拖放时，文本文件.txt只会保留当前这一批文件的路径，试下这个是不是你要的

学易未精

Marvin 发表于 2026-7-16 17:48
[e=1].版本 2
.支持库 shell

不行，这个只保留一个路径