需求
已知一个文件夹下包含很多obj和文件夹,2层文件夹下也包含很多obj和文件夹,3层文件夹下……现在需要将该文件夹下所有obj读取
代码
rollout window "批量导入obj" --菜单栏设置(label Lb "批量导入obj"edittext Edit "输入需导入文件夹:" width:200button btn "确定"on btn pressed do(fileName = Edit.textfile_open = getFilesRecursive fileName "*.obj"for f in file_open do(importFile f #noPrompt using:Wavefront_Object--print (f+"导入成功"))))createdialog window 250 80--参数 读取的文件夹 文件类型fn getFilesRecursive root pattern =(dir_array = GetDirectories (root+"/*")for d in dir_array dojoin dir_array (GetDirectories (d+"/*"))my_files = #()append dir_array (root + "\\")for f in dir_array dojoin my_files (getFiles (f + pattern))my_files)
待完成部分
将 edittext输入文件夹名改为选择文件夹,此处待续