E4A将某文件夹中一类文件名形成文件保存到存储卡

事件 按钮_打开.被单击()
文件浏览框1.显示对话框(1,1,取存储卡路径())
结束 事件
事件 文件浏览框1.选择完毕(被选择文件 为 文本型)
变量 文件名 为 文本型
变量 创建文件成功 为 逻辑型
如果 文件是否存在(取存储卡路径() &'/E4A/') 则
创建目录(取存储卡路径() &'/E4A/')
结束 如果
如果 文件是否存在(取存储卡路径() & '/E4A/spwj.txt') 则
否则
创建文件成功=创建文件(取存储卡路径() &'/E4A/spwj.txt')
结束 如果