Plex看不到下载的电视剧，多半是名称不规范，使用ExcelVBA批量修改文件名

原因

pt下载的文件带有不规范的字符，比如【】，放在plex的文件夹中，在plex中根本都不显示，无法搜刮，类似这样的名称：

[GM-Team][国漫][眷思量][The Island of Siliang][2021][13][AVC][GB][1080P].mp4

plex是不认的，你改一下这个文件名，再刷新一下plex就显示了，

所以是格式问题

手动修改比较慢，最好用软件解决，搜了一大圈，都说filebot好使，但是新版收费，

老版需要java环境，我捣鼓了一上午终于把java环境搞好了，结果还是打不开filebot，

有查到威联通里可以安装filebot，所以又试了一下

又是一通倒腾，仍然没好使。

百度查了一下，找到了解决办法，使用ExcelVba

步骤一：

步骤二：你要先把你nas里的电影文件映射到本地电脑，

步骤三：在Excel中使用查找替换的功能，修改文件名，填到【新版名称】这列

步骤四：

这样文件名就改好了，

更新plex资料库，就能正常显示并搜刮了

代码如下：

Sub 批量获取文件名()

Cells = ""

Dim sfso

Dim myPath As String

Dim Sh As Object

Dim Folder As Object

Application.ScreenUpdating = False

On Error Resume Next

Set sfso = CreateObject("Scripting.FileSystemObject")

Set Sh = CreateObject("shell.application")

Set Folder = Sh.BrowseForFolder(0, "", 0, "")

If Not Folder Is Nothing Then

myPath = Folder.Items.Item.Path

End If

Application.ScreenUpdating = True

Cells(1, 1) = "旧版名称"

Cells(1, 2) = "文件类型"

Cells(1, 3) = "所在位置"

Cells(1, 4) = "新版名称"

Call 直接提取文件名(myPath & "")

End Sub

Sub 直接提取文件名(myPath As String)

Dim i As Long

Dim myTxt As String

i = Range("A1048576").End(xlUp).Row

myTxt = Dir(myPath, 31)

Do While myTxt <> ""

On Error Resume Next

If myTxt <> ThisWorkbook.Name And myTxt <> "." And myTxt <> ".." And myTxt <> "081226" Then

i = i + 1

Cells(i, 1) = "'" & myTxt

If (GetAttr(myPath & myTxt) And vbDirectory) = vbDirectory Then

Cells(i, 2) = "文件夹"

Else

Cells(i, 2) = "文件"

End If

Cells(i, 3) = Left(myPath, Len(myPath) - 1)

End If

myTxt = Dir

Loop

End Sub

Sub 批量重命名()

Dim y_name As String

Dim x_name As String

For i = 2 To Range("A1048576").End(xlUp).Row

y_name = Cells(i, 3) & "" & Cells(i, 1)

x_name = Cells(i, 3) & "" & Cells(i, 4)

On Error Resume Next

Name y_name As x_name

Next

End Sub

作者声明本文无利益相关，欢迎值友理性交流，和谐讨论～