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 If
Next
End Function
VBS实现一个过去的需求
最新推荐文章于 2021-09-24 15:49:33 发布