14/05/23 21:54:41.87 42iEIY4u0.net
>>121
ファンクション・キーに &SCRIPT $V"afx"\...\SetFolderName.vbs を設定。
"SetFolderName.vbs" の中味は以下:
'LANG: VBScript
'=====================================================
'== Set lowest FOLDER name to AFXw variable "$1" V1.0
'=====================================================
Dim PathName '= Current Directory name
Dim Folder '= (Lowest) folder name
Dim BkSlash '= BackSlash position
Set ws = CreateObject("WScript.Shell")
PathName = ws.CurrentDirectory
BkSlash=InStrRev(PathName,"\") '= Position of last \
Folder=Mid(PathName,BkSlash+1) '= Lowest folder name
'= WScript.Echo "- Lowest folder name is: " & Folder
Afxw.Exec("&SET 1 " & Folder) '= Set it to $1
Afxw.Quit() '= *Terminate*
--------------------------------------------------------
実行すると、カーソルのある場所の直近のフォルダ名を AFXw の変数 '$1"
にセットするので、それ以降は $W の代わりに $1 (変数$1) を指定すれば
良い。 尚、現在の $1 の値を表示するには、別のファンクションキーに
"&SET $K" を登録しておくと便利です。(&SET の後ろに "A" をタイプして
から ENTER するとすべての変数 ($0-$9) をクリアします)