[VBScript] 「アーティスト名 - 曲名」ファイルを「アーティスト名」フォルダ/「曲名」ファイルに分ける
2013年 04月 29日
こういう平置きされたファイルをフォルダに分けるスクリプト。
特に使い勝手がないだろうが、メモとして。
If WScript.Arguments.Count = 0 Then WScript.Quit ' フォルダドロップでない
Set objFS = CreateObject("Scripting.FileSystemObject")
s = WScript.Arguments(0)
If Not objFS.FolderExists(s) Then WScript.Quit ' フォルダでない
' フォルダ内のファイルサーチ
Set Folder = objFS.GetFolder(s)
For Each File In Folder.Files: Do
s = File.Name
i = InStr(s, " - ")
If i <= 1 Then Exit Do ' アーティスト名が不明
dnam = LTrim(Left(s, i-1))
dpth = Folder.Path &"\"& dnam &"\"
fnam = Right(s, Len(s) -i-2)
On Error Resume Next ' CreateFolderのエラー回避
objFS.CreateFolder(dpth)
objFS.MoveFile File.Path, dpth & fnam
On Error GoTo 0
Loop Until 1: Next
MsgBox "終了"