Reply to thread

Message

<blockquote data-quote="ppersaud" data-source="post: 350652" data-attributes="member: 86411">Make a Folder for Each MovieI found this script on the internet and it works great:Option ExplicitDim objFSO,srcRoot,objFolder,File,dstRoot,theName,dst,dstFileSet objFSO=CreateObject(&quot;Scripting.FileSystemObject&quot;)srcRoot=&quot;\\Server\videos\New Rips\zzzzzzzzzzzzzzzzzzzz&quot;dstRoot=&quot;\\Server\videos\New Rips\zzzzzzzzzzzzzzzzzzzz&quot;Set objFolder=objFSO.GetFolder(srcRoot)For Each File In objFolder.FilesIf objFSO.GetExtensionName(File) = &quot;avi&quot; ThentheName= Split(File.Name, &quot;.&quot;)(0)&nbsp; dst=dstRoot &amp; &quot;\&quot; &amp; theNamedstFile=dst &amp; &quot;\&quot; &amp; File.NameIf Not objFSO.FolderExists(dst) ThenobjFSO.CreateFolder(dst)End IfobjFSO.MoveFile File, dstFileEnd IfPaste the above script in notepad and save it with a .vbs extension: Makemoviefolder.vbsChange the source path (srcRoot=). I have &quot;\\Server\videos\New Rips\zzzzzzzzzzzzzzzzzzzz&quot; in the script above. You could use &quot;C:\My Documents\My Videos&quot;.Change the destination path (dstRoot=). I have &quot;\\Server\videos\New Rips\zzzzzzzzzzzzzzzzzzzz&quot; in the script above. You could use &quot;C:\My Documents\My Videos&quot;.Change the file extension to the appropriate extension (mpg, vob, avi) on the line with &quot;objFSO.GetExtensionName(File) = &quot;avi&quot;&quot;. I have avi in the script above.Open a command line interface. You can do this by typing &quot;cmd&quot; in the run (XP) or text box on the start button (Vista). run the script using the using the &quot;cscript&quot; command. Example: cscript c:\temp\makemoviefolder.vbsIt worked for me on my Windows Home Server using a client machine to run the script as you can see from the code above. Use at your own risk, but you can see the code and it is pretty straight forward. Regards, <img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite1" alt=":)" title="Smile&nbsp; &nbsp; :)" loading="lazy" data-shortname=":)" />Philippe</blockquote>

[QUOTE="ppersaud, post: 350652, member: 86411"] [b]Make a Folder for Each Movie[/b] I found this script on the internet and it works great: Option Explicit Dim objFSO,srcRoot,objFolder,File,dstRoot,theName,dst,dstFile Set objFSO=CreateObject("Scripting.FileSystemObject") srcRoot="\\Server\videos\New Rips\zzzzzzzzzzzzzzzzzzzz" dstRoot="\\Server\videos\New Rips\zzzzzzzzzzzzzzzzzzzz" Set objFolder=objFSO.GetFolder(srcRoot) For Each File In objFolder.Files If objFSO.GetExtensionName(File) = "avi" Then theName= Split(File.Name, ".")(0) dst=dstRoot & "\" & theName dstFile=dst & "\" & File.Name If Not objFSO.FolderExists(dst) Then objFSO.CreateFolder(dst) End If objFSO.MoveFile File, dstFile End If Paste the above script in notepad and save it with a .vbs extension: Makemoviefolder.vbs Change the source path (srcRoot=). I have "\\Server\videos\New Rips\zzzzzzzzzzzzzzzzzzzz" in the script above. You could use "C:\My Documents\My Videos". Change the destination path (dstRoot=). I have "\\Server\videos\New Rips\zzzzzzzzzzzzzzzzzzzz" in the script above. You could use "C:\My Documents\My Videos". Change the file extension to the appropriate extension (mpg, vob, avi) on the line with "objFSO.GetExtensionName(File) = "avi"". I have avi in the script above. Open a command line interface. You can do this by typing "cmd" in the run (XP) or text box on the start button (Vista). run the script using the using the "cscript" command. Example: cscript c:\temp\makemoviefolder.vbs It worked for me on my Windows Home Server using a client machine to run the script as you can see from the code above. Use at your own risk, but you can see the code and it is pretty straight forward. Regards, :) Philippe [/QUOTE]

Verification