File name wildcard search to find and move files around

Author	Message
Rendrago
Total Posts : 6
Scores: 0
Reward points : 0
Joined: 4/29/2009
Status: offline
File name wildcard search to find and move files around - Pls Help me fix this learn MORE! Thursday, January 05, 2012 10:01 AM (permalink)
0
Only my second time posting a question here so bare with me. I'm still learning.
I've got a script for searching a drive for all files containing a wildcard like %Medic 1% or %Medic 23%. It then moves these files into their appropriate folder like C:\ARCHIVE\Medic 1\ or C:\ARCHIVE\Medic 23\.
An example file type to be moved is: "CDF_20111020134437_99999999_Medic 23_3.4.82@INCID_{E2153609-76B2-4B74-80D8-BA1870FD521D}.zip"
I THINK my problems is it only seems to be picking up files with only a single Medic # and not the double digits. I'm probably wrong but that's my hunch.
What am I doing wrong? Should I not be using WMI? Easier way to do this?
strComputer = "." 
 strDrive = InputBox("Which drive to move archive files from?") Set objWMIService = GetObject("winmgmts:" _ 
  & "{impersonationLevel=impersonate}!\\" & _ 
  strComputer & "\root\cimv2") 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 1%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 1\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 2%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 2\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 4%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 4\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 5%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 5\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 6%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 6\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 7%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 7\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 8%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 8\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 9%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 9\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 10%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 10\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 11%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 11\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 12%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 12\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 13%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 13\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 14%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 14\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 15%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 15\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 16%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 16\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 17%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 17\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 18%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 18\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 19%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 19\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 20%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 20\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 21%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 21\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 22%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 22\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 23%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 23\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 24%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 24\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 25%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 25\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 26%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 26\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 27%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 27\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 28%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 28\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 29%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 29\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 30%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 30\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 31%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 31\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 32%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 32\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 33%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 33\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 34%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 34\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 1%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 1\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 2%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 2\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 3%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 3\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 4%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 4\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 5%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 5\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 6%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 6\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 7%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 7\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 8%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 8\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 9%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 9\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 10%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 10\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 11%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 11\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 12%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 12\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 13%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 13\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 14%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 14\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 15%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 15\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 16%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 16\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 17%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 17\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 18%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 18\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 19%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 19\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 20%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 20\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 21%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 21\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 22%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 22\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 23%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 23\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 24%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 24\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 25%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 25\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 26%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 26\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 27%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 27\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 28%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 28\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 29%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 29\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 30%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 30\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 31%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 31\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 32%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 32\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 33%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 33\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Engine 34%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Engine 34\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%EMS 11%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\EMS 11\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%EMS 12%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\EMS 12\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%EMS 13%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\EMS 13\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%EMS 14%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\EMS 14\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%EMS 15%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\EMS 15\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%EMS 16%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\EMS 16\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%EMS 17%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\EMS 17\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Rescue 2%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Rescue 2\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Rescue 4%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Rescue 4\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Rescue 16%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Rescue 16\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Rescue 17%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Rescue 17\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Rescue 11%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Rescue 11\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Other EMS%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Other EMS\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 841%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 841\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 842%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 842\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 843%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 843\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 844%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 844\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 845%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 845\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 846%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 846\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 847%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 847\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 848%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 848\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 849%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 849\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 850%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 850\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%Medic 890%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Medic 890\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 Set colFiles = objWMIService.ExecQuery _ 
  ("Select * from CIM_DataFile where Drive = '" & strDrive & _ 
  "' AND FileName Like '%UNK_CASE%'") 
  For Each objFile in colFiles 
  strCopy = "C:\ARCHIVES\Unknown\" & objFile.FileName & "." & objFile.Extension 
  objFile.Copy(strCopy) 
  objFile.Delete 
 Next 
 WScript.Echo "DONE"
#1
59cobalt Total Posts : 969 Scores: 91 Reward points : 0 Joined: 7/17/2011 Status: offline	Re:File name wildcard search to find and move files around - Pls Help me fix this learn MO Friday, January 06, 2012 12:35 AM (permalink) 5 The matches for '%Medic 1%' include all matches for '%Medic 11%', '%Medic 12%', '%Medic 13%', etc. as well. Either make the patterns more specific ('%Medic 1_%') or reverse the order (i.e. go from highest to lowest number).
	#2
Rendrago Total Posts : 6 Scores: 0 Reward points : 0 Joined: 4/29/2009 Status: offline	Re:File name wildcard search to find and move files around - Pls Help me fix this learn MO Friday, January 06, 2012 4:40 AM (permalink) 0 As always, you guys are awesome. I had to add leading and trailing underscores, reverse all the orders and it is now working. I learned a bunch on this one. I can't thank you enough. THANK YOU!!!
	#3
59cobalt Total Posts : 969 Scores: 91 Reward points : 0 Joined: 7/17/2011 Status: offline	Re:File name wildcard search to find and move files around - Pls Help me fix this learn MO Friday, January 06, 2012 5:30 AM (permalink) 0 You're welcome.
	#4
Online Bookmarks Sharing:
Jump to:
Current active users

There are 0 members and 1 guests.
Icon Legend and Permission

New Messages
No New Messages
Hot Topic w/ New Messages
Hot Topic w/o New Messages
Locked w/ New Messages
Locked w/o New Messages
Read Message
Post New Thread
Reply to message
Post New Poll
Submit Vote
Post reward post
Delete my own posts
Delete my own threads
Rate post