【maxscript】批量导入文件夹下obj

需求

已知一个文件夹下包含很多obj和文件夹，2层文件夹下也包含很多obj和文件夹，3层文件夹下……现在需要将该文件夹下所有obj读取

代码

rollout window "批量导入obj" --菜单栏设置
(
    label Lb "批量导入obj"
    edittext Edit "输入需导入文件夹:" width:200
    button btn "确定"
    on btn pressed do(
        fileName = Edit.text
        file_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 do
    join dir_array (GetDirectories (d+"/*"))
    my_files = #()
    append dir_array (root + "\\")
    for f in dir_array do
    join my_files (getFiles (f + pattern))
    my_files
)

待完成部分

将 edittext输入文件夹名改为选择文件夹，此处待续