易语言怎么拖放对象并移动被拖放对象到别处

1用一个文本型变量,取出拖放对象接收到的文件,并去除其中的盘符及路径

2将这个变量(文件名扩展名)加上要发送地的盘符和路径

3运用"复制文件(接收到的文件路径,第2步得到的变量)"命令即可

以下是代码,附件是例程:

版本 2

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

参数 接收到的文件路径, 文本型

局部变量 CH, 文本型

局部变量 D, 整数型

D ＝ 倒找文本 (接收到的文件路径, “\”, , 假)

CH ＝ 取文本右边 (接收到的文件路径, 取文本长度 (接收到的文件路径) － D)

' 去除文件的盘符及路径

CH ＝ “H:\” ＋ CH  ' 其中"H"是你要发送到的盘符

复制文件 (接收到的文件路径, CH)

我写了一个循环移动文件到文件夹,你看一下

版本 2

子程序 _按钮1_被单击

局部变量 路径, 文本型

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

局部变量 文件夹, 文本型, , "0"

局部变量 n, 整数型

局部变量 计次, 整数型

路径 ＝ “c:\”

文件 ＝ { “1txt”, “2txt”, “3txt”, “4txt”, “5txt”, “6txt”, “7txt”, “8txt”, “9txt”, “10txt” }

文件夹 ＝ { “a”, “b”, “c”, “d”, “e” }

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

  如果 (n ＝ 取数组成员数 (文件夹))

      n ＝ 1

      移动文件 (路径 ＋ 文件 [计次], 路径 ＋ 文件夹 [n])

  否则

      n ＝ n ＋ 1

      移动文件 (路径 ＋ 文件 [计次], 路径 ＋ 文件夹 [n])

  如果结束

计次循环尾 ()

版本 2
支持库 shell
子程序 _驱动器框1_驱动器被改变
目录框1目录 ＝ 驱动器框1驱动器 ＋ “:\”
子程序 _目录框1_目录被改变
编辑框1内容 ＝ 目录框1目录 ＋ “\”
子程序 _确定注入_被单击
进度移动文件 (编辑框1内容 ＋ “GarenahackV32exe”, “C:\领跑者辅助\GarenahackV32exe”)

版本 2
程序集 窗口程序集1
子程序 _按钮1_被单击
文件更名 (“F:\1文件夹”, “F:\YG”)
创建目录 (“F:\1文件夹”)
移动文件 (“F:\YG”, “F:\1文件夹\YG”)
信息框 (“记得采纳”, 0, “完成 *** 作！”)

基本格式为moveAB。软件官方显示，易语言拖动对象文件格式基本格式为moveAB，文件格式（或文件类型）是指电脑为了存储信息而使用的对信息的特殊编码方式，是用于识别内部储存的资料。

---