
易语言,文件怎么多选?这个只能单选一个文件,
1个回答
展开全部
.版本 2
.支持库 shell
.程序集 窗口程序集1
.程序集变量 目录, 文本型
.程序集变量 文件名, 文本型
.程序集变量 文件数组, 文本型, , "0"
.子程序 __启动窗口_创建完毕
目录 = 浏览文件夹 (“浏览文件夹”, )
目录 = 目录 + “\”
文件名 = 寻找文件 (目录 + “*.dll”, )
.判断循环首 (文件名 ≠ “”)
选择列表框1.加入项目 (文件名, )
文件名 = 寻找文件 (, )
.判断循环尾 ()
.子程序 _按钮1_被单击
.局部变量 索引, 整数型
编辑框1.内容 = 浏览文件夹 (“复制到文件夹”, )
.如果真 (编辑框1.内容 = “”)
信息框 (“你没有选择文件夹”, 0, )
返回 ()
.如果真结束
编辑框1.加入文本 (“\”)
.计次循环首 (选择列表框1.取项目数 (), 索引)
.如果真 (选择列表框1.是否被选中 (索引 - 1))
加入成员 (文件数组, 选择列表框1.取项目文本 (索引 - 1))
.如果真结束
.计次循环尾 ()
.计次循环首 (取数组成员数 (文件数组), 索引)
复制文件 (目录 + 文件数组 [索引], 编辑框1.内容 + 文件数组 [索引])
.计次循环尾 ()
.支持库 shell
.程序集 窗口程序集1
.程序集变量 目录, 文本型
.程序集变量 文件名, 文本型
.程序集变量 文件数组, 文本型, , "0"
.子程序 __启动窗口_创建完毕
目录 = 浏览文件夹 (“浏览文件夹”, )
目录 = 目录 + “\”
文件名 = 寻找文件 (目录 + “*.dll”, )
.判断循环首 (文件名 ≠ “”)
选择列表框1.加入项目 (文件名, )
文件名 = 寻找文件 (, )
.判断循环尾 ()
.子程序 _按钮1_被单击
.局部变量 索引, 整数型
编辑框1.内容 = 浏览文件夹 (“复制到文件夹”, )
.如果真 (编辑框1.内容 = “”)
信息框 (“你没有选择文件夹”, 0, )
返回 ()
.如果真结束
编辑框1.加入文本 (“\”)
.计次循环首 (选择列表框1.取项目数 (), 索引)
.如果真 (选择列表框1.是否被选中 (索引 - 1))
加入成员 (文件数组, 选择列表框1.取项目文本 (索引 - 1))
.如果真结束
.计次循环尾 ()
.计次循环首 (取数组成员数 (文件数组), 索引)
复制文件 (目录 + 文件数组 [索引], 编辑框1.内容 + 文件数组 [索引])
.计次循环尾 ()
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询