XREA.COM Logo XREA.COM Ad

スクリプト投稿スレ

59unnamed.ahk:05/01/23 14:24 ID:Lkiug8xg
Drive:
Loop, Parse, DriveList, |
Menu, Menu, Add, %A_LoopField%, Next
Gosub, MenuShow
return

MenuShow:
Menu, Menu, Show, 0, 0
return

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

Back:
SplitPath, Path, OutFileName, OutDir, OutExt, OutNameNoExt, OutDrive
if OutFileName is space
Path = Dummy
else
{
FileGetAttrib, Attrib, %Path%
IfInString, Attrib, D
Path = %OutDir%
else
{
SplitPath, OutDir, OutFileName, OutDir, OutExt, OutNameNoExt, OutDrive
Path = %OutDir%
}
}
Menu, Menu, DeleteAll
Gosub, Menu
return

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