好不容易才把代码写成这样，还差最后一步，进来看看

aa44941869

本来一点事都没有，取了文件名之后就不行了，取了文件名之后两个一起拖拽只能写入一个，我的目的在于两个一起拖拽把文件名写入文本

之前得到几个同行的帮助好不容易才写成这样

已注销373079

表示我的系统已经把这个组件屏蔽了。

leiyh

[e].版本 2

.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
.局部变量 文件号
.局部变量 ary, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 temp, 文本型

.如果真 (接收到的文件路径 ≠ “”)
    文件号 ＝ 打开文件 (取运行目录 () ＋ “\1.txt”, 3, )
    ary ＝ 分割文本 (接收到的文件路径, #换行符, )
    .计次循环首 (取数组成员数 (ary), i)
        temp ＝ 文件_取文件名 (ary )

        写文本行 (文件号, temp)
    .计次循环尾 ()
    关闭文件 (文件号)
.如果真结束
[/e]

aa44941869

leiyh 发表于 2017-1-20 23:23
[e].版本 2

.子程序 _拖放对象1_得到文件

这样取带路径的文件名可用，但是取去除路径的文件名就不行，例如拖拽两个C：1.zip,C：2.zip可用，但是拖拽两个1.zip,2.zip就不行。