FileExtension["dror/duck.mp4"]

VideoTypes = {"mp4","MP4"}

StringReplace["duck.mp4.gif.goose.mp4.gif","."~~(vt:Alternatives@@VideoTypes)~~".gif"~~EndOfString:>"."<>vt]

SetDirectory["C:\\drorbn\\AcademicPensieve"]

FileNames["*.mp4.gif",".",∞]//Column

FileNames["*.mp4.gif",".",∞]//DeleteFile

FileNames["index.html",".",∞]//DeleteFile

FileNames["*.avi",".",∞]//Column

VideoFrameList[Import@".\\2013-07\\Vis4D\\Dalvit\\3.avi",3]

FileNames["*.ogg",".",∞]//Column

VideoFrameList[Import@".\\Projects\\Citizenship\\SunNewsInterview.ogg",3]