For new users of Win 7 Media Center

General Computing Coding and Design
1

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 :slight_smile: Enjoy

2

I shall be using this :thumbsup:

3

Have taken the liberty and posted this on two other forums I use with a mention of whom and where to thank.

If it offends, post it here to let me know and I will remove asap.