Ai给的程序总是过不了，老师们帮帮忙，怎么修改？

jaxxcyh

1. Sub RenameFirstFileInFolders()
   
2.     Dim objFSO As Object
   
3.     Dim objFolder As Object
   
4.     Dim objSubFolder As Object
   
5.     Dim objFile As Object
   
6.     Dim strFolderPath As String
   
7.     Dim strNewFileName As String
   
8.    
   
9.     ' 设置要遍历的文件夹路径
   
10.     strFolderPath = "D:\教导处\学籍资料\2024-2025-1\3.学籍信息\102学籍照片"
    
11.    
    
12.     ' 创建FileSystemObject
    
13.     Set objFSO = CreateObject("Scripting.FileSystemObject")
    
14.    
    
15.     ' 获取指定文件夹
    
16.     Set objFolder = objFSO.GetFolder(strFolderPath)
    
17.    
    
18.     ' 遍历每个子文件夹
    
19.     For Each objSubFolder In objFolder.SubFolders
    
20.         ' 检查子文件夹中是否有文件
    
21.         If objSubFolder.Files.Count > 0 Then
    
22.             ' 获取子文件夹中的第一个文件
    
23.             'Set objFile = objSubFolder.Files(1)     ' 获取第一个文件
    
24.             Set objFile = objSubFolder.Files.Item(1) ' 使用 .Item 来访问集合中的元素
    
25.             ' 设置新的文件名（去掉文件扩展名）
    
26.             strNewFileName = objSubFolder.Name & "." & objFSO.GetExtensionName(objFile.Name)
    
27.             ' 重命名文件
    
28.             objFile.Name = strNewFileName
    
29.         Else
    
30.             ' 如果没有文件，输出提示信息
    
31.             WScript.Echo "子文件夹 " & objSubFolder.Path & " 中没有文件。"
    
32.         End If
    
33.     Next
    
34.    
    
35.     ' 清理
    
36.     Set objFile = Nothing
    
37.     Set objSubFolder = Nothing
    
38.     Set objFolder = Nothing
    
39.     Set objFSO = Nothing
    
40.    
    
41.     MsgBox "文件重命名完成！"
    
42. End Sub
    

复制代码

蓝桥玄霜

1.     ' 遍历每个子文件夹
   
2.     For Each objSubFolder In objFolder.SubFolders
   
3.         ' 检查子文件夹中是否有文件
   
4.         If objSubFolder.Files.Count > 0 Then
   
5.             ' 获取子文件夹中的第一个文件
   
6.             'Set objFile = objSubFolder.Files(1)     ' 获取第一个文件
   
7.             Set objFile = objSubFolder.Files  ' 使用 .Item 来访问集合中的元素
   
8.             For Each fl In objFile
   
9.                 nm = Split(fl.Name, ".")(0)
   
10.                 ' 设置新的文件名（去掉文件扩展名）
    
11.                 strNewFileName = objSubFolder.Name & "." & nm  'objFSO.GetExtensionName(objFile.Name)
    
12.                 ' 重命名文件
    
13.                 fl.Name = strNewFileName
    
14.                 Exit For
    
15.             Next
    
16.         Else
    
17.             ' 如果没有文件，输出提示信息
    
18.             WScript.Echo "子文件夹 " & objSubFolder.Path & " 中没有文件。"
    
19.         End If
    
20.     Next
    

复制代码

jaxxcyh

蓝桥玄霜 发表于 2024-9-10 17:09

是不是Files集合不能用这种索引号 Files(1) 或者 Files.Item(1) 来获取单个的文件?
而只能用for each 来遍历其中的每个文件？

ykcbf1100

无法测试，附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.9.10
   
2.     Set Fso = CreateObject("Scripting.FileSystemObject")
   
3.     p = "D:\教导处\学籍资料\2024-2025-1\3.学籍信息\102学籍照片"
   
4.     For Each fd In Fso.GetFolder(p).SubFolders
   
5.         For Each f In fd.Files
   
6.             f.Name = fd.Name & "-" & Fso.GetBaseName(f) & "." & Fso.GetExtensionName(f)
   
7.         Next
   
8.     Next
   
9. End Sub
   

复制代码

jaxxcyh

ykcbf1100 发表于 2024-9-10 18:23
参与一下。。。

感谢，高手的代码就是简单明了