Reply to thread

Message

<blockquote data-quote="rolls1400" data-source="post: 197630" data-attributes="member: 55504">I created a script to move all my files from my torrent folder to there correct folder. It checks the filename (&quot;smallville&quot;)then sends it to the corresponding folder &quot;\\MEDIACENTER\Documents\My Movies\TV Shows&quot;. Make sure to replace all of the filenames and directories, also just duplicate this code [CODE]Case InStr(LCase(sFile),LCase(&quot;example&quot;)) &lt;&gt; 0&nbsp; sDestinationFolder = &quot;\\MEDIACENTER\Documents\example&quot;[/CODE]if you want to setup multiple paths.I am sure alot of people know how to do this but if you dont it makes things ALOT easier!! I am new to vb so if anyone has anything to add that would be great!!Just paste in notepad than save the file as &quot;whatever.vbs&quot; (use quotations) Change the red text inside quotations.[CODE]Dim sOriginFolder, sDestinationFolder, sFile, oFSOSet oFSO = CreateObject(&quot;Scripting.FileSystemObject&quot;)sOriginFolder = &quot;C:\Documents and Settings\All Users\Documents\My Torrents&quot;sDestinationFolder = &quot;\\MEDIACENTER\Documents\My Movies\Movies&quot;For Each sFile In oFSO.GetFolder(sOriginFolder).FilesSelect Case True&nbsp;[COLOR=&quot;Red&quot;]Case InStr(LCase(sFile),LCase(&quot;axxo&quot;)) &lt;&gt; 0&nbsp; sDestinationFolder = &quot;\\MEDIACENTER\Documents\My Movies\Movies&quot;&nbsp;Case InStr(LCase(sFile),LCase(&quot;survivor&quot;)) &lt;&gt; 0&nbsp; sDestinationFolder = &quot;\\MEDIACENTER\Documents\My Movies\My TV Series\Survivor&quot;&nbsp;Case InStr(LCase(sFile),LCase(&quot;smallville&quot;)) &lt;&gt; 0&nbsp; sDestinationFolder = &quot;\\MEDIACENTER\Documents\My Movies\My TV Series\Smallville&quot;[/COLOR]&nbsp;Case ElseEnd Select &nbsp;If Not oFSO.FileExists(sDestinationFolder &amp; &quot;\&quot; &amp; oFSO.GetFileName(sFile)) Then&nbsp; oFSO.GetFile(sFile).Copy sDestinationFolder &amp; &quot;\&quot; &amp; oFSO.GetFileName(sFile),True&nbsp;End IfNextWScript.Echo &quot;Copying :&nbsp; All the files have been &quot; &amp; sMorC &amp; &quot; to &quot; &amp; sDestinationFolder [/CODE]</blockquote>

[QUOTE="rolls1400, post: 197630, member: 55504"] I created a script to move all my files from my torrent folder to there correct folder. It checks the filename ("smallville")then sends it to the corresponding folder "\\MEDIACENTER\Documents\My Movies\TV Shows". Make sure to replace all of the filenames and directories, also just duplicate this code [CODE]Case InStr(LCase(sFile),LCase("example")) <> 0 sDestinationFolder = "\\MEDIACENTER\Documents\example"[/CODE] if you want to setup multiple paths.I am sure alot of people know how to do this but if you dont it makes things ALOT easier!! I am new to vb so if anyone has anything to add that would be great!! [SIZE="3"]Just paste in notepad than save the file as "whatever.vbs" (use quotations)[/SIZE] Change the red text inside quotations. [CODE]Dim sOriginFolder, sDestinationFolder, sFile, oFSO Set oFSO = CreateObject("Scripting.FileSystemObject") sOriginFolder = "C:\Documents and Settings\All Users\Documents\My Torrents" sDestinationFolder = "\\MEDIACENTER\Documents\My Movies\Movies" For Each sFile In oFSO.GetFolder(sOriginFolder).Files Select Case True [COLOR="Red"]Case InStr(LCase(sFile),LCase("axxo")) <> 0 sDestinationFolder = "\\MEDIACENTER\Documents\My Movies\Movies" Case InStr(LCase(sFile),LCase("survivor")) <> 0 sDestinationFolder = "\\MEDIACENTER\Documents\My Movies\My TV Series\Survivor" Case InStr(LCase(sFile),LCase("smallville")) <> 0 sDestinationFolder = "\\MEDIACENTER\Documents\My Movies\My TV Series\Smallville"[/COLOR] Case Else End Select If Not oFSO.FileExists(sDestinationFolder & "\" & oFSO.GetFileName(sFile)) Then oFSO.GetFile(sFile).Copy sDestinationFolder & "\" & oFSO.GetFileName(sFile),True End If Next WScript.Echo "Copying : All the files have been " & sMorC & " to " & sDestinationFolder [/CODE] [/QUOTE]

Verification