XREA.COM Logo XREA.COM Ad

スクリプト投稿スレ

60unnamed.ahk:05/01/23 17:13 ID:E7DmBcio
↑ファイルがフルパス表示だったので変更。変更した近辺のみ記載

Menu:


Loop, Parse, File, `n
{
if A_LoopField is not space
{
if A_index = 1
Menu, Menu, Add
SplitPath, A_LoopField, OutFileName, OutDir, OutExt, OutNameNoExt, OutDrive
Menu, Menu, Add, %OutFileName%, Next
}
}



Next:
FileGetAttrib, Attrib, %A_ThisMenuItem%
IfInString, Attrib, D
{
Menu, Menu, DeleteAll
Path = %A_ThisMenuItem%
Gosub, Menu
}
else
{
Path = %OutDir%\%A_ThisMenuItem%
Goto, Open
}
return

Open:
Run,hogehoge.exe "%Path%"
ExitApp
70KB
名前: E-mail:
ファイル:
0ch BBS 2005-10-08