#11=buf_num get_filename(10,"*.*") buf_switch(buf_free) buf_empty(ok) reg_ins(10) search("\",reverse) #12=cur_pos goto_pos(0) block_begin(cur_pos) goto_pos(#12) block_end(cur_pos) reg_copy_block(9,block_begin,block_end) buf_quit(ok) buf_switch(buf_free) chdir(@9)