title: Copying certain file extensions with VBS
body: <p>I'm trying to copy a multiple files with a certain extension to a different folder, heres the code I'm using, not too familiar with VBS, but could someone point me in the right direction?</p>
  
  <pre><code>dim filesys
  
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  objStartFolder = "V:\Auto Audiowall Music Uploads\MUSIC\"
  
  Set objFolder = objFSO.GetFolder(objStartFolder)
  Wscript.Echo objFolder.Path
  
  Set colFiles = objFolder.Files
  
  For Each objFile in colFiles
  
  If UCase(objFSO.GetExtensionName(objFile.name)) = "MP3" Then
  objFSO.CopyFile "V:\Auto Audiowall Music Uploads\MUSIC\".objFile.Name.".mp3", "V:\Auto Audiowall     Uploads\New Music"
  End If
  If UCase(objFSO.GetExtensionName(objFile.name)) = "WAV" Then
  objFSO.CopyFile "V:\Auto Audiowall Music Uploads\MUSIC\".objFile.Name.".wav", "V:\Auto Audiowall Uploads\New Music"
  End If
  Next
  </code></pre>