Name of subfolders to text file as list

Folders to List.applescript

tell application "Finder"
  set AppleScript's text item delimiters to "
"
	set myProjects to get name of folders of folder "Macintosh HD:Users:judis:Google Drive:Matters:" as text
	set thePath to (path to documents folder as text) & "projects.csv"
	set NewFile to open for access file thePath with write permission
	write myProjects to NewFile as «class utf8»
	close access NewFile
	set AppleScript's text item delimiters to " "
	myProjects
end tell