« SETLOCAL ~ ENDLOCAL内部の環境変数をエクスポートする。 | トップページ | コマンドプロンプトで、デスクトップなどのディレクトリに簡単に移動する。 »

2006年10月29日 (日)

短い名前に変わったプロンプトを長い名前に戻す。

コマンドプロンプトで、16ビットアプリを呼び出すと、プロンプト文字列が短い名前に変わります。
以下のバッチファイルは、プロンプト文字列を元の長い名前に戻します。

LCD.CMD

@if(0)==(0) ECHO OFF
FOR /F "delims=" %%0 IN ('CScript.exe //NoLogo /E:JScript "%~f0" %CD%') DO CD /D "%%0"
GOTO :EOF
@end
WScript.Echo(new ActiveXObject('Shell.Application').NameSpace(WScript.Arguments.Item(0)).Self.Path);

« SETLOCAL ~ ENDLOCAL内部の環境変数をエクスポートする。 | トップページ | コマンドプロンプトで、デスクトップなどのディレクトリに簡単に移動する。 »