取运行目录里文件夹

renzhanxin

怎么把文件复制到运行目录下的测试文件夹里
.版本 2
.支持库 edroptarget
.支持库 spec

.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ())

.子程序 _按钮1_被单击
.局部变量 路径, 文本型

调试输出 (创建目录 (取运行目录 () ＋ “\test”))

.子程序 寻找并复制文件
.参数 文件目录, 文本型, , 要删除一个目录下所有的指定类型文件
.局部变量 文件名, 文本型
.局部变量 i, 整数型
.局部变量 路径, 文本型
文件目录 ＝ 文件目录 ＋ “\”
文件名 ＝ 寻找文件 (文件目录 ＋ “*.*”, 55)
.判断循环首 (文件名 ≠ “”)
    调试输出 (文件目录 ＋ 文件名)  ' 列出搜索出来的文件
    复制文件 (文件目录 ＋ 文件名, 路径 ＋ 文件名)  ' 这里的路径怎么取运行目录里面的一个测试“”test‘’文件夹
    文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
文件名 ＝ 寻找文件 (文件目录 ＋ “*.*”, 16)  ' 这里是搜索子目录
.判断循环首 (文件名 ≠ “”)
    .如果真 (取文本左边 (文件名, 1) ≠ “.”)
        寻找并复制文件 (文件目录 ＋ 文件名)
    .如果真结束
    文件名 ＝ 寻找文件 (, 16)
.判断循环尾 ()

.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型

编辑框1.内容 ＝ 接收到的文件路径

帅怨

加拖动     .