14/11/17 16:52:14.31 nyW73Ezu0.net
>>368
下記の SCRIPT で OK です。
Set ws = CreateObject("WScript.Shell")
Set ao = CreateObject("afxw.obj")
Cdir = ws.CurrentDirectory '= Current directory name
BkSlash=InStrRev(Cdir, "\") '= Position of last \
DirNm= Mid(Cdir, BkSlash+1) '= Lowest folder name
ao.Exec("&TOW") '= Cursor to other window
Mask = """*" &DirNm &"*""" '= Build Mask Value (Wildcard)
ao.Exec("&MASK " &Mask &" ") '= Mask with "*DirName*" (Space is required at the end)
ao.Quit() '= Terminate
--------------------------------------------------------------
上を Mask1.vbs というファイル名で保存し、ファンクションキーに、
CScript D:\AFX\SCRPT\Mask1.vbs を登録。