遍历目录生成菜单

/*----------------------说明--------------------------
作用：根据提供的目录生成菜单。子目录以子菜单的形式体现；
点击菜单显示菜单名；
作者：zhanglei1371
QQ：625289295
----------------------------------------
*/
fod=C:\Screen Recorder ;测试目录
createmenu(fod)
Menu,% regexreplace(fod,".+\\(.+)(\\)?$","$1"),show
return


createmenu(fod){ ;感谢网友Troy_Daniel的修正
	Loop ,%fod%\*.*,1
	{
		myMenu:=(myMenu=""?RegExReplace(fod,".+\\(.+)(\\)?$","$1"):myMenu)
		if (FileExist(A_LoopFileFullPath)<>"D"){ ;否则若遍历到文件则创建文件菜单
			Menu,%myMenu%,add,%A_LoopFileName%,getname
		}
		else ;若遍历到目录,则创建子菜单
		{
			If ((ofn := createmenu(A_LoopFileFullPath)) == ""){
				Menu, %A_LoopFileName%, Add
				ofn := A_LoopFileName
			}
			Menu,%myMenu%,add,%ofn%,:%ofn%
		}
	}
	return mymenu
}

getname:
	MsgBox % A_ThisMenuItem
return