here's a modification
Dim objFSO,objFile,objRE,colMatches,oMatches
Dim myFiles, srcFolder, dstFolder,dstFile,line,strToFind,strFileName
Dim pdfBase,xmlBase,i,strContents
Dim pdfStore(),pdfFullStore() 'define some array to store paths
Set objFSO = CreateObject("Scripting.FileSystemObject")
srcFolder="c:\temp" 'Server source folder location
dstFolder="c:\temp" 'Destination Folder as desired
i=0 'array counter
For Each myFiles In objFSO.GetFolder(srcFolder).Files
If objFSO.GetExtensionName(myFiles) = "pdf" Then
pdfBase = objFSO.GetBaseName(myFiles)
ReDim Preserve pdfStore(i)
ReDim Preserve pdfFullStore(i)
pdfStore(i)=pdfBase
pdfFullStore(i)=myFiles
i=i+1
End If
Next
For Each myFiles In objFSO.GetFolder(srcFolder).Files
If objFSO.GetExtensionName(myFiles) = "xml" Then
xmlBase = objFSO.GetBaseName(myFiles)
For i=LBound(pdfStore) To UBound(pdfStore)
If pdfStore(i) = xmlBase Then
WScript.Echo "found " , xmlBase, pdfStore(i)
strToFind = getString(myFiles)
dstFile = strToFind&".pdf"
objFSO.MoveFile pdfFullStore(i),dstFolder&"\"&dstFile
End If
Next
End If
Next
Function getString(theFile)
Set objRE = New RegExp
objRE.Global = True
objRE.IgnoreCase = False
objRE.Pattern = "<reportSearchPath>.*/report\[@name='(.*?)'\]</reportSearchPath>"
Set objFile=objFSO.OpenTextFile(theFile,1)
strContents=objFile.ReadAll
Set Matches = objRE.Execute(strContents)
For Each match In Matches
For Each smatch In match.Submatches
result=Replace(smatch,":"," ")
Next
Next
getString = result
End Function
output:
C:\vbscript>dir c:\temp /B
test.pdf
test.xml
test1.pdf
test1.xml
C:\vbscript>cscript /nologo MoveCogNosReports2.vbs
found test test
found test1 test1
C:\vbscript>dir c:\temp /B
PRV-INT-001 Provider NCPDP Interface Error Report.pdf
PRV-INT-002 Provider NCPDP Interface Error Report.pdf
test.xml
test1.xml