making simple project scene directory

fn createCustomProjectFolder dir: subdirs: =
(
	if (makeDir dir) do
	(
		local sioFile = dotnetclass "System.IO.File"
		local dirstrings = #("[Directories]",("ProjectFolder="+dir))
		local mxp = pathConfig.appendPath dir ((pathConfig.stripPathToLeaf dir)+".mxp")
		for n in subdirs do 
		(	
			makeDir (pathConfig.appendPath dir n)
			case n of
			(
				"maps": append dirstrings @"Images=.\maps"
				"ies": append dirstrings @"Photometric=.\ies"
				"proxy": join dirstrings #(@"Export=.\proxy",@"Import=.\proxy")
				"scenes": append dirstrings @"Scenes=.\scenes"
				"render": append dirstrings @"RenderOutput=.\render"
			)
			if finditem subdirs "xrefs" != 0 do join dirstrings #(@"[XReferenceDirs]", @"Dir1=.\xrefs")
			if finditem subdirs "maps" != 0 do join dirstrings #(@"[BitmapDirs]",@"Dir1=.\maps")
			sioFile.WriteAllLines mxp dirstrings ; pathConfig.setCurrentProjectFolder dir
		)
	)
)
createCustomProjectFolder dir:@"C:\temp\dussiaProject" subdirs:#("maps", "ies", "proxy", "scenes", "xrefs", "render")