' Filemover Const Trenner = "-" Dim oFSO, Datei, file, Ordner Dim trennposition, newfolder Set oFSO = CreateObject("scripting.filesystemobject") Set folder = oFSO.GetFolder(GetMyPath) For each Datei ...