VBS实现一个过去的需求
MoveTXT "C:\Develop\Windows Dev","C:\Develop\Windows Dev\Process"Function MoveTXT(sSource, sTarget)Set fso = CreateObject("Scripting.FileSystemObject")For Each file in fso.GetFolder(sSource).Files If fso.GetExtensionName(file) = "trg" Then txtFile = sSource & "" & fso.GetBaseName(file) & ".txt" If fso.FileExists(txtFile) Then fso.MoveFile txtFile,sTarget fso.DeleteFile sSource & "" & fso.GetBaseName(file) & ".trg" End If End IfNextEnd Function