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

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

	getdir "フォルダコピーのコピー元",1: if stat {
		end
	}
	src=refstr: srclen=strlen(src): lastchar p,src,'\\'
	s=strmid(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
	len=strlen(srcref): s=strmid(srcref,srclen,len-srclen)
	if flg { ;フォルダの場合
		mkdir dst+s
	}
	else {   ;ファイルの場合
		bcopy srcref,dst+s
	}
return