files = getFiles ((getDir #scripts) + "\\test\\*.ms")
if files.count != 0 then
(
	for f = 1 to files.count do
		templist[f] = getFilenameFile files[f]
	for f in files do fname = FilenameFromPath f
)

outputName = getSaveFileName caption:"Save MaxScript File" \
types:"Script Files (*.mcr)|*.mcr|All Files (*.*)|*.*|"
if outputName != undefined then
(
	outputFile = CreateFile outputName
	for f = 1 to files.count do
	(
		str = "macroScript new" + (f as string) + " "
		str += "category:\"phizikl\" tooltip:\""
		str += templist[f] + "\" buttonText:\"" + templist[f] + "\"\n"
		str += "(\n" + "setCommandPanelTaskMode #create\n"
		str += "on execute do\n" + "(\n"
		str += "filein \"" + files[f] + "\"\n" + ")\n" + ")\n"
		format "%" str to:outputFile
	)
	close outputFile
)
edit outputName