创建快捷方式,拖入拖出窗口内的控件移动

易语言 2020-08-08 16:34:10

创建快捷方式,拖入拖出窗口内的控件移动

文件地址.内容 = 接收到的文件路径
文件名 = 取文本右边 (接收到的文件路径, 取文本长度 (接收到的文件路径) - 倒找文本 (接收到的文件路径, “\”, , 假))
文件名和后缀名.内容 = 取文本右边 (文件地址.内容, 取文本长度 (文件地址.内容) - 倒找文本 (文件地址.内容, “\”, , 假))
文件名称.内容 = 取文本左边 (文件名和后缀名.内容, 倒找文本 (文件名和后缀名.内容, “.”, , 假) - 1)
目录.内容 = 取文本左边 (文件地址.内容, 倒找文本 (文件地址.内容, “\”, , 假) - 1)
.如果真 (文件名称.内容 = “”)
文件名称.内容 = 文件名和后缀名.内容
.如果真结束
添加对象.可视 = 真