vbscript - 将名称中带有日期的文件移动到日期文件夹

Question

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

因此，如果文件是c:\test\FileName_2012_01_25，它将被移动到一个名为c:\Sample\2012

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

谢谢

Answer 1

请参阅此答案以帮助您入门。改变：

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

应该是唯一必要的修改。