Need vb script -urgent

I need a script that will help me copy gif files from one folder to another according to slice number.
I have a single folder containing ~200,000 files including many gif images.
The filename of the images is built like this:
D2D_car.Input_du185_wu.110.303.3.1_slice110_frame303_ref303_Det_InImage1.gif

Manual Input fom user: slice number, source folder, destination folder (I can change the input in text editor, or any other way you specify).

Thanks in advance...

Nice to have-envelope this script with a script that creates subfolders according to available slice numbers (~ about 1300 folders) move all files to subfolders according to their slice number

A combination of FileSystemObject methods and objects, string functions such as Instr and Mid, and InputBox should do all that. Have a search.