Looks okay to me, though the CreateFolder line should have quotes around the folder name and it's a good idea to add READAUTO=no to the command to stop it breaking when the default is yes.
There's a similar, working button to do this here:
[Quick buttons for directory organisation)
Note that the button there (like your similar one) is more complex than it needs to be if you always want to move files. The buttons let you click them without any files selected to create a new, empty folder. Or you can click the with files selected to create a new folder and move the selected files into it.
If you don't want the button to be able to create empty folders and only care about moving files into new folders then you can simplify things to one line:
Copy MOVE HERE CREATEFOLDER="{dlgStringS|Enter Folder Name|New Folder}"(Edit: I've just added this simplified version to the thread I linked as well.)