我正在尝试将两个(第 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