0

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

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

我需要一些帮助来更正 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
4

0 回答 0