xコマンドで、フォルダ構造のみコピーする話

3/14の電王戦第一局抽選あったたので六本木に見に行ってきます！
このブログ見ていて、もし来られる方がいれば連絡ください！

はい、本題が終わったので、SASの話もちらっと。

Windows環境でコマンドプロンプト使いこなしてると、色々できていいですよね。
僕はさっぱりです。

なんかやりたい時はググってSASのxコマンドにペタッと貼って実行してます。
その中で、ちょっと変わった処理だけど意外と使うな～ってものをご紹介します。

それは、指定したフォルダ内のファイルは無視して、フォルダ構造のみをコピーするというものです。
例えば、ルーチンでやる業務で、前回と同じフォルダが欲しいけど、中に入ってるファイルは別に要らないよというケースです。

一応マクロにしていますが、適当なのでよしなにカスタマイズしてください


/*-----------------------------------------------------------
フォルダ構造のみコピー
※コピー元のフォルダ内のファイルは無視して構造のみをコピー
------------------------------------------------------------*/
%macro folder_emp_copy(basein=,copyout=);
options noxwait noxsync;
%unquote(%bquote(x 'xcopy /t /e "&basein." "&copyout."'));
%mend folder_emp_copy;

/*実行例：デスクトップのTEST1フォルダ内のフォルダ構造をTEST2フォルダ内にコピー*/
%folder_emp_copy(basein=C:\Users\SASYAMA\Desktop\TEST1,
copyout=C:\Users\SASYAMA\Desktop\TEST2)


ついでに、単純に1ファイルをコピーしてリネームするのも

/*--------------------------------------
単一ファイルのリネームコピー
---------------------------------------*/
%macro filecopy(basein=,copyout=);
options noxwait noxsync;
%unquote(%bquote(x 'copy "&basein" "&copyout"'));
%mend filecopy;

/*実行例：AA.txtをBB.txtという名前にリネームしてコピー*/
%filecopy(basein=C:\Users\SASYAMA\Desktop\TEST1\AA.txt,
copyout=C:\Users\SASYAMA\Desktop\TEST2\BB.txt)