' Please first create Target Folders A , B ,C ....
Set fso = CreateObject("Scripting.FileSystemObject")
Const TIMEOUT = 1
Dim Info
Set Info = CreateObject ("WScript.Shell")
'sStartFolder = "C:\songs\"
'sStartFolder = "C:\Users\Downloads\work\"
sZielFolder = "C:\Users\Downloads\ready\"
sZielFolder = "F:\karaoke\Songs\"
Dim ObjFso : Set ObjFso = CreateObject("Scripting.FileSystemObject")
Dim FIL_LOG : FIL_LOG = sStartFolder & Replace(WScript.ScriptName,".vbs",".log")
Function WriteLog(Inhalt)
'------------------ Create Logfile ---------------------------------
Dim FileOut
Set FileOut = ObjFso.OpenTextFile(FIL_LOG,8,true)
FileOut.WriteLine (Now &" - " & Inhalt)
FileOut.Close
Set FileOut = Nothing
End Function
Set folder = fso.GetFolder(sStartFolder)
Set Subfolders = folder.subFolders
For each subfolder In subFolders
moveZiel = ""
Set re = New RegExp
re.Pattern = "[a-z]"
re.IgnoreCase = True
re.Global = True
If (isNumeric(left(subfolder.Name,1))) then
moveZiel = sZielFolder + "0-9\"
elseif (left(subfolder.Name,3) = "Die") then
moveZiel = sZielFolder + "Die\"
elseif (left(subfolder.Name,3) = "The") then
moveZiel = sZielFolder + "The\"
elseif (re.Test(left(subfolder.Name,1))) then
moveZiel = sZielFolder + left(subfolder.Name,1) + "\"
else
moveZiel = sZielFolder + "_\"
end if
'wscript.echo subfolder.Name & " --> " & moveZiel
WriteLog (subfolder.Name& " -> " & moveZiel)
Info.Popup subfolder.Name & " -> " & moveZiel, TIMEOUT
if (moveZiel <> "Name") then
' fso.MoveFolder subFolder, moveZiel
fso.CopyFolder subFolder, moveZiel, true
'fso.DeleteFolder subFolder
end if
Next
MsgBox "All OK" , vbApplicationModal , WScript.ScriptName
'have Fun
