 ;自动加载用户文件夹dvb文件

(vl-catch-all-apply
	'(lambda ( / nn f1 )
		(setq
			nn (append
					(mapcar
						'(lambda(x) (strcat mai_mini_path "autoload\\" x))
						(mai_dos_dir (strcat mai_mini_path "autoload\\") "*.dvb")
					)
					(mapcar
						'(lambda(x) (strcat mai_mini_path "autoload_user\\" x))
						(mai_dos_dir (strcat mai_mini_path "autoload_user\\") "*.dvb")
					)
				)
		)
		(foreach f1 nn (command "_.vbaload" f1))
	)
)

