Moving files with VBS

[Casper1]

Im working on a script that will first move all .xml files to a temp file and then copy back a certain number of them back. This is so I can control how many are in the main directory. I have a script that works but it gets the .xml files from everywhere and not out of the directory I want. Anyone know how to be able to state the directory to get the files from?

Thanks for looking.

'CREATE OBJECT & SET TO A VARIBLE
Set objFSO = CreateObject("Scripting.FileSystemObject")

'MOVING .XML FILES
Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists("C:\Program Files\Numara Software\Track-It! 7.0\Track-It! Server\DATA\*.xml") Then
objFSO.MoveFile "C:\Program Files\Numara Software\Track-It! 7.0\Track-It! Server\DATA\*.xml" , "C:\Program Files\Numara Software\Track-It! 7.0\Track-It! Server\DATA\TEMP"
Else

End If


'This section is the problem
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colFiles = objWMIService. _
ExecQuery("Select * from CIM_DataFile where Extension = 'xml'")

'DIM strFilCount

strFileCount = 0

For Each objFile in colFiles

If strFileCount < 7 Then
strCopy = "C:\Program Files\Numara Software\Track-It! 7.0\Track-It! Server\DATA\" & objFile.FileName _
& "." & objFile.Extension
objFile.Copy(strCopy)
objFile.Delete
strFileCount = strFileCount + 1
End If

NexT

'RUNNING THE MERG
'C:\Program Files\Numara Software\Track-It! 7.0\Technician Client\tiwin.exe" /u=audit /p=audit /m