有一个操作文件的需求想用vbs实现。该怎么处理

有一个操作文件的需求想用vbs实现。。。
大家好，需求如下:
通常情况下在某文件夹下有成对出现的trg文件(触发文件)和txt文件(正式文件)，程序如果检查到trg文件就把相应的txt文件移到另一个文件夹下，比如有一个1.trg在文件夹下，就需要找到1.txt文件并把1.txt文件移到另一个文件夹里去。请问根据trg文件查找txt文件的细节如何实现？

参考代码如下：

Dim sFilePath, sFileName, sArchivePath

Function moveFile(ByVal sSource,ByVal sTarget)
Dim objFileName,objCsvFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
For Each objFileName in objFSO.GetFolder(sSource).Files
If ...Then
  ...
End If
Next
End Function

------解决方案--------------------------------------------------------
调用: MoveFile c:\test1, c:\test2

VBScript code

Function MoveFile(sSource, sTarget)Set fso = CreateObject("Scripting.FileSystemObject")For Each file in fso.GetFolder(sSource).Files If LCase(fso.GetExtensionName(file))="trg" Then  txtFile = sSource & "\" & fso.GetBaseName(file) & ".txt"  If fso.FileExists(txtFile) Then   fso.MoveFile txtFile, sTarget  End If End IfNextEnd Function