vbscript - 名前に日付が含まれるファイルを日付フォルダーに移動する

Question

ファイル名に日付が含まれるフォルダーに大量のファイルがあります。フォルダー内のすべてのファイルを、ファイル名から年が付けられた他のフォルダーに移動する vbscript を作成できますか。また、フォルダが存在しない場合は作成してください。

したがって、ファイルがc:\test\FileName_2012_01_25次の名前のフォルダーに移動される場合c:\Sample\2012

誰かが私を助けてくれたらとても嬉しいです

ありがとう

Answer 1

開始するには、この回答を参照してください。変化：

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

必要な変更はこれだけです。