将名称中包含日期的文件移动到日期文件夹

Question

我在文件夹中有大量文件，文件名中有日期。 有人可以创建一个vbscript来将文件夹中的所有文件移动到文件名中名为year的其他文件夹中。此外，如果文件夹不存在，无法创建它。

因此，如果文件为c:\test\FileName_2012_01_25，则会将其移至名为c:\Sample\2012

的文件夹中

如果有人能帮助我，我会很高兴

由于

Answer 1

请参阅this answer以帮助您入门。改变：

n = Split(f.Name, "_") ' split on _ instead of -

应该是唯一必要的修改。