title: Move only jpg files from folder and subfolder to another folder without duplicating
body: <p>I use the below script to move all the specific files to destination folder. I want to copy the files to destination folder without duplicating.</p>
  
  <p>As I am going to schedule to run the VBS for every 10 minutes, it should not again copy the same files which are already present in the folder.</p>
  
  <pre><code>Set fso = CreateObject("Scripting.FileSystemObject")
  
  testfolder = "D:\env"
  'fso.CreateFolder(testfolder)
  
  MoveFiles fso.GetFolder("D:\Movie Keys\License\2013_Apr_19")
  
  Sub MoveFiles(fldr)
      For Each f In fldr.Files
          basename  = fso.GetBaseName(f)
          extension = fso.GetExtensionName(f)
  
          If LCase(extension) = "env" Then
              dest  = fso.BuildPath(testfolder, f.Name)
              count = 0
              Do While fso.FileExists(dest)
                  count = count + 1
                  dest  = fso.BuildPath(testfolder, basename &amp; "_" &amp; count &amp; "." _
                          &amp; extension)
              Loop
              f.Move dest
          End If
      Next
  
      For Each sf In fldr.SubFolders
          MoveFiles sf
      Next
  End Sub
  </code></pre>