Question

所以，我有一个用户帮助我重命名文件，这太棒了！

以下是代码：

 Set fso = WScript.CreateObject("Scripting.FileSystemObject")
 Set fol = fso.GetFolder("F:\Downloads")

 For Each fil In fol.Files
'may need to specify a comparison
If InStr(1, fil.Name, "tv show bob - 13", vbTextCompare) <> 0 Then
    ext = fso.GetExtensionName(fil)
    If Len(ext) > 0 Then ext = "." & ext
    sName = "tv show bob S03E13" & ext
    fil.Name = sName
  End If
Next

 WScript.Echo "Completed!"

但我现在遇到的问题是该文件正被torrent程序使用。现在，对于标准文件，我使用这行代码：

If (objFSO.FileExists("D:\TV Shows\tv\tv show S01E02.mkv")) Then
Else
objFSO.CopyFile "D:\Downloads\tv show - 02 [1080p].mkv", "D:\TV Shows\tv\tv show S01E02.mkv"
End If

我想知道是否可以复制文件，然后使用代码的第一部分粘贴重命名的版本。谢谢你的帮助：D

复制文件，然后重命名VBS

0 个答案: