I have an AppleScript that has been written and it works as such but I need to change the way it creates the folder structure. The script does the following

Folder is selected which contains files (in my case it will be photos)  
It will then look at the pictures created date  
create a YYYY (Year folder if not already created)  
create a MM (Month folder if not already created)  
create a DD (Day folder if not already created)  
it will then move the photo into this folder and repeat for the next photo and repeat until completed.

The current folder structure is created as follows
 
 - 2018 "YYYY"
 -   01 "MM"
 - -     01 "DD"
 - -   02
 -  02
 - -   01
 - -    02
 -  03
 - -    01
 - -    02


This is great and works as designed but I have changed my mind on how I would like the folders to look like, I would like the following structure (which is almost the same just a different naming structure

 - **2018   
 - - 001 January
 - - - 20180101
 - - - 20180102   
 - - 002 February
 - - - 20180201
 - - - 20180202   
 - - 003 March
 - - - 20180301
 - - - 20180302**

Now I have tried to work out where the script generates this but I have failed so no I am turning to this great place for some help

<!-- language: lang-none -->

	on run
		SortFiles(POSIX path of (choose folder))
	end run

	on open (DroppedFolder)
		set DroppedFolder to POSIX path of DroppedFolder
		if text (length of text of DroppedFolder) of DroppedFolder is not "/" then quit
		SortFiles(DroppedFolder)
	end open

	on SortFiles(SortFolder)
		set AppleScript's text item delimiters to return
		set SortFolderContents to the text items of (do shell script "find '" & SortFolder & "' -type f")
		set FolderMakeList to {}
		repeat with ThisItem in SortFolderContents
			set ThisFile to ThisItem as string
			if ThisFile does not contain "/." then
				set ThisFilesEpoch to do shell script "stat -f \"%B\" '" & ThisFile & "'"
				set ThisFilesFolder to SortFolder & (do shell script ("date -r " & ThisFilesEpoch & " \"+%b-%Y\"")) & "/"
				if ThisFilesFolder is not in FolderMakeList then
					try
						do shell script ("mkdir '" & ThisFilesFolder & "'")
					end try
					set FolderMakeList to FolderMakeList & ThisFilesFolder
				end if
				try
					do shell script ("mv '" & ThisFile & "' '" & ThisFilesFolder & "'")
				end try
			end if
		end repeat
	end SortFiles