from Vista to Win 7 we now have a different heading ‘Movies’ where it will pick up all your films, provided they are all in seperate folders, so if you have all your movies in the same folder what do you do? create sperate folders for them? it could take a while. So I write a little ditty. Copy and paste the code to notepad, save the file with a name of your liking with an extension of VBS stick it in the folder with all your movies and run it. BINGO all your movies are in folders with folders with the same name as the movie file.
Set objFSO = CreateObject("Scripting.FileSystemObject") sCurPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".") Set objFolder = objFSO.GetFolder(scurpath) Set colFiles = objFolder.Files For Each objFile In colFiles if WScript.ScriptFullName = objfile.path then else newfolder = left(objfile.name,(len(objfile.name)-4)) objFSO.CreateFolder (newfolder) objFSO.MoveFile objFile.Path, NewFolder & "\" end if Next WScript.Echo "Done."
I’m sure someone will tell me now that there is an easier way but this works for me Enjoy