Friday | May 3, 2013

htakayuki さんが Outlookに優しいファイルのパスコピーという記事を書かれていて、素晴らしかったのでご紹介を兼ねて。

僕の場合、NAS をネットワークドライブとしてマッピングしていることが多いので、メール貼付用にパスをコピーするときは元の UNC パスに展開してくれると嬉しいなぁと思ってちょっと手を入れてみました。

@echo off

call :get "%*"
call :display %DIRECTORY% %FILENAME%
goto :eof

:get
set DIRECTORY="%~dp1"
set FILENAME="%~nx1"
for /f "usebackq tokens=1*" %%i in (`net use %~d1 2^>nul ^| findstr "\\"`) do (
  set DIRECTORY="%%j%~p1"
)
goto :eof

:display
echo ^<%~1^>
echo %~2
goto :eof

元々 2 行だったはずなのですが、スペースの入ったファイル名とかを考慮するとこうなってしまうというコマンドプロンプトのダークサイドがつらい。

(追記) GitHub に置きました。