WPS代码旧版本可以运行新版本运行不了，请老帅忙看看是什么问题

z1979

1. Option Explicit
   
2. Private Fso As Object, Mypath As String
   
3. Public r As Integer
   
4. 
   
5. Sub 选择文件夹()
   
6.     Dim Fo
   
7.    
   
8.     With Application.FileDialog(msoFileDialogFolderPicker)
   
9.         .Title = "请选择要批量重命名文件的文件夹"
   
10.         .Show
    
11.         If .SelectedItems.Count = 0 Then Exit Sub
    
12.         'MsgBox .SelectedItems.Count
    
13.         MsgBox .SelectedItems(1)
    
14.         Mypath = .SelectedItems(1) & ""
    
15.     End With
    
16.     Set Fso = CreateObject("Scripting.FileSystemObject")
    
17.     Set Fo = Fso.getfolder(Mypath)
    
18.     r = Range("A65536").End(xlUp).Row + 1
    
19.     Call 递归(Fo)
    
20. End Sub
    
21. 
    
22. Sub 获取文件名(Folder)
    
23.     Dim Fi, filename As String
    
24.     For Each Fi In Folder.Files
    
25. 
    
26.         filename = Fi.Name
    
27.         Cells(r, 1) = Folder.Path & ""
    
28.         Cells(r, 2) = Fso.getbasename(filename)
    
29.         Cells(r, 4) = "." & Fso.GetExtensionName(filename)
    
30.         r = r + 1
    
31.     Next
    
32. End Sub
    
33. 
    
34. Sub 递归(Folder)
    
35.     Dim Fi, Fo
    
36.     Call 获取文件名(Folder)
    
37. 
    
38.     If Folder.subFolders.Count > 0 Then
    
39.         For Each Fo In Folder.subFolders
    
40.             Cells(r, 1) = Folder.Path & ""
    
41.             Cells(r, 2) = Fo.Name
    
42.             r = r + 1
    
43.             Call 递归(Fo)
    
44.         Next
    
45.     End If
    
46. End Sub
    
47. 
    

复制代码

请老师帮忙看看那里出错了，新WPS2019的运行不了。