仅在前一个命令完成后才启动命令

Question

我正在尝试将两个（第三方）脚本放在一起，因为我必须更改某些媒体文件的扩展名，但我想终止播放器之前的（最终）进程。重命名（如果某些文件正在使用中）。

我注意到执行下面的脚本会产生“权限被拒绝”错误，而某些文件不会被重命名。

我需要一些帮助来纠正oder中的脚本，以便在实际终止进程后使重命名命令仅 。

在这个例子中，我试图切换（无扩展名）和flv。

之间的所有扩展名

Const strComputer = "." 
  Dim objWMIService, colProcessList
  Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'KM Player.exe'")
  For Each objProcess in colProcessList 
    objProcess.Terminate() 
  Next
myFolder = "C:\Some Path\My Media Folder"

Set fso = CreateObject("Scripting.FileSystemObject")

For Each f In fso.GetFolder(myFolder).Files
  If LCase(fso.GetExtensionName(f.Name)) = "" Then
    f.Name = fso.GetBaseName(f.Name) & ".flv"
  ElseIf LCase(fso.GetExtensionName(f.Name)) = "flv" Then
f.Name = fso.GetBaseName(f.Name) & "."
  End If
Next