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