Kenichi Maehashi's Blog

脳内コアダンプ

RSS
Category: Computer
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 に置きました。

Comments

Leave Yours...
Name:
E-mail / URL (optional):
Comment:
Are You Robot?: