Folder 생성

createdir ( string dir_name ) returns integer

long ll_pos
long ll_len
long ll_rtn
string ls_dir
string ls_a

ll_len = len (dir_name)

ls_dir = ""
for ll_pos = 1 to ll_len
    ls_a = mid (dir_name, ll_pos, 1)
   
    if ls_a = "\" or ls_a = "/" or ll_pos = ll_len then
        ls_dir += ls_a
       
        if DirectoryExists (ls_dir) = false then
            if CreateDirectory (ls_dir) <> 1 then
                return -1
            end if
        end if
    else
        ls_dir += ls_a
    end if
next

return 0