Save all history snapshots as files

I must confess, I like saving history snapshots! Sometimes I wish to save them as a file for later reference once the current image has been closed.

I have written an action to save the current 10 snapshots out as files. It works fine with the following limitations:

1) It only saves 10 snapshots (this is easily expanded upon if required)

2) The snapshots have to be named  “Snapshot 1”, “Snapshot 2” etc.

This action does not work if the snapshot has a different name.

Does anybody know of a script that does similar?

Here is a sample of the action steps saved as text:

Set: Save First 10 History Snapshots to File  Action: Save First 10 History Snapshots to File  Select snapshot “Snapshot 1”  Make document  Using: Current History State  Save  Close  Select snapshot “Snapshot 2”  Make document  Using: Current History State  Save  Close