tell application "Finder"
	-- Le dossier utilisé
	set thisFolder to (target of front window) as Unicode text
	-- Choix du nom du fichier
	set thefilename to my ChooseName(thisFolder)
	-- Le chemin complet
	set theFilePath to thisFolder & thefilename
 
	-- Création du fichier
	set newFile to make new file with properties {name:thefilename} at thisFolder as alias
 
	-- verification de l'extension fournie et ajout de texte si true
	set theExtension to my extensionFilter(thefilename)
 
	if (theExtension is not "") then
		set templateContent to my CheckTemplate(theExtension)
 
		-- SI LE TEMPLATE EXISTE (CONTENU TEXTE) ON ENREGISTRE LE TEXTE
		if (templateContent is not "") then
			try
				set fileID to open for access file theFilePath with write permission
				write templateContent to fileID as string
				close access fileID
			on error
				try
					close access fileID
				end try
				display dialog "Le Template n'a pas pu être enregistré."
			end try
		end if
	end if
 
end tell
 
on ChooseName(thisFolder)
	-- DEMANDE LE NOM DU FICHIER & VERIFIE SIL EXISTE PAS
	tell application "Finder"
		set thefilename to text returned of (display dialog "NOM DU FICHIER :" & return & "(Un template sera choisie en fonction de l'extension)" default answer "newFile.txt")
		set theFilePath to thisFolder & thefilename
 
		-- Verification que le fichier n'existe pas
		if exists file theFilePath then
			display alert "Le fichier ‘" & thefilename & "’ existe déjà." as informational
			set thefilename to my ChooseName(thisFolder)
		end if
	end tell
	return thefilename
end ChooseName
 
on extensionFilter(thefilename)
	-- RECUPERE EXTENSION CHOISIE
	set theExtension to thefilename as string
	set theExtension to (the reverse of every character of theExtension) as string -- inversion du nom
	set x to the offset of "." in theExtension -- on recupere la position du point de l'extension
	if (x < 6 and x is not 0) then
		set theExtension to (text 1 thru (x - 1) of theExtension) as string
		set theExtension to (the reverse of every character of theExtension) as string
	else
		-- MISE A ZERO
		set theExtension to ""
	end if
	return theExtension
end extensionFilter
 
on CheckTemplate(theExtension)
	-- VERIFIE SI UN TEMPLATE EXISTE ET LE RENVOI SI OUI
	set myPath to (path to me) --chemin du script
	tell application "Finder"
		set templateFolder to folder of myPath as alias
		set templateFolder to folder "QuickFileModels" of templateFolder as alias
		set theTemplate to templateFolder & theExtension & ".txt" as string
 
		if exists file theTemplate then
			try
				-- LE TEMPLATE EXISTE ON ON PEUX RECUPERER LE TEXTE
				set the theTemplate to the theTemplate as string
				set fileID to open for access theTemplate --with write permission
				set lecontenu to read fileID
				close access fileID
			on error
				try
					close access fileID
				end try
				return false
			end try
		else
			-- SI LE TEMPLATE N'EXISTE PAS RETOURNE UN CONTENU VIDE
			set lecontenu to ""
		end if
 
	end tell
	return lecontenu
end CheckTemplate