;copydir.as		treedoモジュールを使ってフォルダをコピーする
#include "anthspex.as"
#include "treedo.as"

	sdim src,261
	sdim srcref,261
	sdim dst,261
	sdim s,261

	getdir "フォルダコピーのコピー元",1: if stat: end
	src=refstr: strlen srclen,src: lastchar p,src,'\'
	strmid s,src,p,srclen-p
	getdir "フォルダコピーのコピー先",1: if stat: end
	dst=refstr: dst+=s	;srcの最後のフォルダ名をdstに追加
	treedo src,"*.*",3
	if stat: dialog "階層構造が深すぎてコピーしきれませんでした"
end

*_treedo	;treedo命令から呼び出されるサブルーチン
	flg=stat: srcref=refstr
	strlen len,srcref: strmid s,srcref,srclen,len-srclen
	if flg { ;フォルダの場合
		mkdir dst+s
	}
	else {   ;ファイルの場合
		bcopy srcref,dst+s
	}
return