第1个回答 2019-01-17
.版本
2
.支持库
shell
.程序集
窗口程序集1
.程序集变量
目录,
文本型
.程序集变量
文件名,
文本型
.程序集变量
文件数组,
文本型,
,
"0"
.子程序
__启动窗口_创建完毕
目录
＝
浏览文件夹
(“浏览文件夹”,
)
目录
＝
目录
＋
“\”
文件名
＝
寻找文件
(目录
＋
“*.dll”,
)
.判断循环首
(文件名
≠
“”)
选择列表框1.加入项目
(文件名,
)
文件名
＝
寻找文件
(,
)
.判断循环尾
()
.子程序
_按钮1_被单击
.局部变量
索引,
整数型
编辑框1.内容
＝
浏览文件夹
(“复制到文件夹”,
)
.如果真
(编辑框1.内容
＝
“”)
信息框
(“你没有选择文件夹”,
0,
)
返回
()
.如果真结束
编辑框1.加入文本
(“\”)
.计次循环首
(选择列表框1.取项目数
(),
索引)
.如果真
(选择列表框1.是否被选中
(索引
－
1))
加入成员
(文件数组,
选择列表框1.取项目文本
(索引
－
1))
.如果真结束
.计次循环尾
()
.计次循环首
(取数组成员数
(文件数组),
索引)
复制文件
(目录
＋
文件数组
[索引],
编辑框1.内容
＋
文件数组
[索引])
.计次循环尾
()