Pull video files from folders
Posted: 05 Mar 2014 13:01
This script will pull video files out of selected folders and move them up a level in the tree.
Code: Select all
$a = get("SelectedItemsPathNames", "|");
foreach($b, $a, "|") {
$c = folderreport("files", "r", $b, "r", , "|");
if(strpos($c, ".avi", , 0) != -1) { moveto "<curpath>", "$b\*.avi", , 1; }
if(strpos($c, ".mp4", , 0) != -1) { moveto "<curpath>", "$b\*.mp4", , 1; }
if(strpos($c, ".mkv", , 0) != -1) { moveto "<curpath>", "$b\*.mkv", , 1; }
if(strpos($c, ".mpg", , 0) != -1) { moveto "<curpath>", "$b\*.mpg", , 1; }
if(strpos($c, ".mpeg", , 0) != -1) { moveto "<curpath>", "$b\*.mpeg", , 1; }
}
msg "Done!";
