如何按照txt的行来批量重命名文件夹?

时间:2021-11-10 13:24:31

按照 1.txt 里面的内容来批量重命名 1文件夹下面的所有子文件夹(内容相同、顺序不论)一行命名一个文件夹

感谢!

17 个解决方案

#1


把你这句话读给你旁边的人,看看他们在不需要你额外解释的情况下能不能理解你想要干啥

#2


如果把这网页里所有的文字都复制到你的1.txt里,放在桌面上,然后运行你要求的这个程序,你希望得到什么样的结果?

#3


引用 1 楼 chewinggum 的回复:
把你这句话读给你旁边的人,看看他们在不需要你额外解释的情况下能不能理解你想要干啥


如何按照txt的行来批量重命名文件夹?

#4


引用 1 楼 chewinggum 的回复:
把你这句话读给你旁边的人,看看他们在不需要你额外解释的情况下能不能理解你想要干啥


是这样的意思

如何按照txt的行来批量重命名文件夹?

#5


你的 txt 文件的每一行至少要提供两个信息:旧文件夹名、新文件夹名。最好是有完整路径的。

#6


类似下面的语句就可以修改:

Name "c:\test\test\old" As "c:\test\test\new"

#7


引用 6 楼 of123 的回复:
类似下面的语句就可以修改:

Name "c:\test\test\old" As "c:\test\test\new"


就以这;两个路径为例呗

#8



    Dim strRoot As String  '初始路径
    Dim strOldName As String
    Dim colOldNames As New Collection '旧路径名集合
    Dim colNewNames As New Collection '准备修改的新路径名集合
    Dim i As Integer
    
    strRoot = "B:\Test\"
    'TODO:读取文件把文件名序列塞入colNewNames
    '这里就直接赋值不倒腾文件了
    colNewNames.Add "AAAA"
    colNewNames.Add "BBBB"
    colNewNames.Add "CCCC"
    
    '获取旧路径名序列
    strOldName = Dir(strRoot, vbDirectory)
    Do While strOldName <> ""
        If strOldName <> "." And strOldName <> ".." And (GetAttr(strRoot & strOldName) And vbDirectory) = vbDirectory Then
            colOldNames.Add strOldName
        End If
        strOldName = Dir(, vbDirectory)
    Loop
    '替换文件夹名
    '这里假设已存在的路径名序列数量小于等于你文本文件中的数据行数,否则报错
    For i = 1 To colOldNames.Count
        Name strRoot & colOldNames(i) As strRoot & colNewNames(i)
    Next


结贴吧

#9


引用 8 楼 chewinggum 的回复:

    Dim strRoot As String  '初始路径
    Dim strOldName As String
    Dim colOldNames As New Collection '旧路径名集合
    Dim colNewNames As New Collection '准备修改的新路径名集合
    Dim i As Integer
    
    strRoot = "B:\Test\"
    'TODO:读取文件把文件名序列塞入colNewNames
    '这里就直接赋值不倒腾文件了
    colNewNames.Add "AAAA"
    colNewNames.Add "BBBB"
    colNewNames.Add "CCCC"
    
    '获取旧路径名序列
    strOldName = Dir(strRoot, vbDirectory)
    Do While strOldName <> ""
        If strOldName <> "." And strOldName <> ".." And (GetAttr(strRoot & strOldName) And vbDirectory) = vbDirectory Then
            colOldNames.Add strOldName
        End If
        strOldName = Dir(, vbDirectory)
    Loop
    '替换文件夹名
    '这里假设已存在的路径名序列数量小于等于你文本文件中的数据行数,否则报错
    For i = 1 To colOldNames.Count
        Name strRoot & colOldNames(i) As strRoot & colNewNames(i)
    Next


结贴吧


完全菜鸟 不会用   保存为.VBS  打开提示语句为结束

#10


如何按照txt的行来批量重命名文件夹?
得了.最好手把手把你电脑上的都改好算了....

#11


靠!!不早说要VBS

#12


都懒得再写了,你纠结两天的时间,手工挨个也改完了

#13


熟悉一下for在批处理中的使用。

C:\> for /?
对一组文件中的每一个文件执行某个特定命令。

FOR %variable IN (set) DO command [command-parameters]

  %variable  指定一个单一字母可替换的参数。
  (set)      指定一个或一组文件。可以使用通配符。
  command    指定对每个文件执行的命令。
  command-parameters
             为特定命令指定参数或命令行开关。

在批处理程序中使用 FOR 命令时,指定变量请使用 %%variable
而不要用 %variable。变量名称是区分大小写的,所以 %i 不同于 %I.

如果命令扩展被启用,下列额外的 FOR 命令格式会受到
支持:

FOR /D %variable IN (set) DO command [command-parameters]

    如果集中包含通配符,则指定与目录名匹配,而不与文件
    名匹配。

FOR /R [[drive:]path] %variable IN (set) DO command [command-parameters]

    检查以 [drive:]path 为根的目录树,指向每个目录中的
    FOR 语句。如果在 /R 后没有指定目录,则使用当前
    目录。如果集仅为一个单点(.)字符,则枚举该目录树。

FOR /L %variable IN (start,step,end) DO command [command-parameters]

    该集表示以增量形式从开始到结束的一个数字序列。
    因此,(1,1,5) 将产生序列 1 2 3 4 5,(5,-1,1) 将产生
    序列 (5 4 3 2 1)。

FOR /F ["options"] %variable IN (file-set) DO command [command-parameters]
FOR /F ["options"] %variable IN ("string") DO command [command-parameters]
FOR /F ["options"] %variable IN ('command') DO command [command-parameters]

    或者,如果有 usebackq 选项:

FOR /F ["options"] %variable IN (file-set) DO command [command-parameters]
FOR /F ["options"] %variable IN ("string") DO command [command-parameters]
FOR /F ["options"] %variable IN ('command') DO command [command-parameters]

    filenameset 为一个或多个文件名。继续到 filenameset 中的
   下一个文件之前,每份文件都已被打开、读取并经过处理。
    处理包括读取文件,将其分成一行行的文字,然后将每行
    解析成零或更多的符号。然后用已找到的符号字符串变量值
    调用 For 循环。以默认方式,/F 通过每个文件的每一行中分开
    的第一个空白符号。跳过空白行。您可通过指定可选 "options"
    参数替代默认解析操作。这个带引号的字符串包括一个或多个
    指定不同解析选项的关键字。这些关键字为:

        eol=c           - 指一个行注释字符的结尾(就一个)
        skip=n          - 指在文件开始时忽略的行数。
        delims=xxx      - 指分隔符集。这个替换了空格和跳格键的
                          默认分隔符集。
        tokens=x,y,m-n  - 指每行的哪一个符号被传递到每个迭代
                          的 for 本身。这会导致额外变量名称的分配。m-n
                          格式为一个范围。通过 nth 符号指定 mth。如果
                          符号字符串中的最后一个字符星号,
                          那么额外的变量将在最后一个符号解析之后
                          分配并接受行的保留文本。
        usebackq        - 指定新语法已在下类情况中使用:
                          在作为命令执行一个后引号的字符串并且一个单
                          引号字符为文字字符串命令并允许在 filenameset
                          中使用双引号扩起文件名称。

    某些范例可能有助:

FOR /F "eol=; tokens=2,3* delims=, " %i in (myfile.txt) do @echo %i %j %k

    会分析 myfile.txt 中的每一行,忽略以分号打头的那些行,将
    每行中的第二个和第三个符号传递给 for 程序体;用逗号和/或
    空格定界符号。请注意,这个 for 程序体的语句引用 %i 来
    取得第二个符号,引用 %j 来取得第三个符号,引用 %k
    来取得第三个符号后的所有剩余符号。对于带有空格的文件
    名,您需要用双引号将文件名括起来。为了用这种方式来使
    用双引号,您还需要使用 usebackq 选项,否则,双引号会
    被理解成是用作定义某个要分析的字符串的。

    %i 专门在 for 语句中得到说明,%j 和 %k 是通过
    tokens= 选项专门得到说明的。您可以通过 tokens= 一行
    指定最多 26 个符号,只要不试图说明一个高于字母 'z' 或
    'Z' 的变量。请记住,FOR 变量是单一字母、分大小写和全局的;而且,
    同时不能有 52 个以上都在使用中。

    您还可以在相邻字符串上使用 FOR /F 分析逻辑;方法是,
    用单引号将括号之间的 filenameset 括起来。这样,该字符
    串会被当作一个文件中的一个单一输入行。

    最后,您可以用 FOR /F 命令来分析命令的输出。方法是,将
    括号之间的 filenameset 变成一个反括字符串。该字符串会
    被当作命令行,传递到一个子 CMD.EXE,其输出会被抓进
    内存,并被当作文件分析。因此,以下例子:

      FOR /F "usebackq delims==" %i IN (`set`) DO @echo %i

    会枚举当前环境中的环境变量名称。

另外,FOR 变量参照的替换已被增强。您现在可以使用下列
选项语法:

     ~I          - 删除任何引号("),扩展 %I
     %~fI        - 将 %I 扩展到一个完全合格的路径名
     %~dI        - 仅将 %I 扩展到一个驱动器号
     %~pI        - 仅将 %I 扩展到一个路径
     %~nI        - 仅将 %I 扩展到一个文件名
     %~xI        - 仅将 %I 扩展到一个文件扩展名
     %~sI        - 扩展的路径只含有短名
     %~aI        - 将 %I 扩展到文件的文件属性
     %~tI        - 将 %I 扩展到文件的日期/时间
     %~zI        - 将 %I 扩展到文件的大小
     %~$PATH:I   - 查找列在路径环境变量的目录,并将 %I 扩展
                   到找到的第一个完全合格的名称。如果环境变量名
                   未被定义,或者没有找到文件,此组合键会扩展到
                   空字符串

可以组合修饰符来得到多重结果:

     %~dpI       - 仅将 %I 扩展到一个驱动器号和路径
     %~nxI       - 仅将 %I 扩展到一个文件名和扩展名
     %~fsI       - 仅将 %I 扩展到一个带有短名的完整路径名
     %~dp$PATH:I - 搜索列在路径环境变量的目录,并将 %I 扩展
                   到找到的第一个驱动器号和路径。
     %~ftzaI     - 将 %I 扩展到类似输出线路的 DIR

在以上例子中,%I 和 PATH 可用其他有效数值代替。%~ 语法
用一个有效的 FOR 变量名终止。选取类似 %I 的大写变量名
比较易读,而且避免与不分大小写的组合键混淆。

#14


楼主,安装个VB6精减版吧,网上有个6MB左右大小的安装包那个,适合你使用一下。


引用 11 楼 chewinggum 的回复:
靠!!不早说要VBS

文件内容、目录列表,用不着使用集合对象吧!放数组内不就行了?
如何按照txt的行来批量重命名文件夹?

#15


引用 14 楼 Chen8013 的回复:
楼主,安装个VB6精减版吧,网上有个6MB左右大小的安装包那个,适合你使用一下。


Quote: 引用 11 楼 chewinggum 的回复:

靠!!不早说要VBS

文件内容、目录列表,用不着使用集合对象吧!放数组内不就行了?
如何按照txt的行来批量重命名文件夹?


小东西懒得用数组,数Index费神,用集合对象比较省心。这点点资源的浪费现在的机器不介意。

#16


本帖最后由 sysdzw 于 2018-04-28 09:25:06 编辑
Dim fso, theFile, ReadEntireFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set theFile = fso.OpenTextFile(fso.GetFolder(".").Path & "\标题.txt", 1, False)
Do While theFile.AtEndOfStream <> True
ReadEntireFile = ReadEntireFile & theFile.ReadLine & vbcrlf
Loop
theFile.Close
vLine=split(ReadEntireFile,vbcrlf)

Dim f, f1, fc
Set f = fso.GetFolder(".")
Set fc = f.SubFolders
For Each f1 in fc
  f1.name=vLine(i)
  i=i+1
Next

保存为vbs后缀双击


20180427追加
谢谢明月的提醒,删除了两行无用代码。

#17


引用 16 楼 sysdzw 的回复:
Dim fso, theFile, ReadEntireFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set theFile = fso.OpenTextFile(fso.GetFolder(".").Path & "\标题.txt", 1, False)
Do While theFile.AtEndOfStream <> True
ReadEntireFile = ReadEntireFile & theFile.ReadLine & vbcrlf
Loop
theFile.Close
vLine=split(ReadEntireFile,vbcrlf)

Dim f, f1, fc, s,i
Set f = fso.GetFolder(".")
Set fc = f.SubFolders
For Each f1 in fc
  ShowFolderList = ShowFolderList & f1.name & vbcrlf
  f1.name=vLine(i)
  i=i+1
Next

保存为vbs后缀双击



完美,谢谢雷锋

#1


把你这句话读给你旁边的人,看看他们在不需要你额外解释的情况下能不能理解你想要干啥

#2


如果把这网页里所有的文字都复制到你的1.txt里,放在桌面上,然后运行你要求的这个程序,你希望得到什么样的结果?

#3


引用 1 楼 chewinggum 的回复:
把你这句话读给你旁边的人,看看他们在不需要你额外解释的情况下能不能理解你想要干啥


如何按照txt的行来批量重命名文件夹?

#4


引用 1 楼 chewinggum 的回复:
把你这句话读给你旁边的人,看看他们在不需要你额外解释的情况下能不能理解你想要干啥


是这样的意思

如何按照txt的行来批量重命名文件夹?

#5


你的 txt 文件的每一行至少要提供两个信息:旧文件夹名、新文件夹名。最好是有完整路径的。

#6


类似下面的语句就可以修改:

Name "c:\test\test\old" As "c:\test\test\new"

#7


引用 6 楼 of123 的回复:
类似下面的语句就可以修改:

Name "c:\test\test\old" As "c:\test\test\new"


就以这;两个路径为例呗

#8



    Dim strRoot As String  '初始路径
    Dim strOldName As String
    Dim colOldNames As New Collection '旧路径名集合
    Dim colNewNames As New Collection '准备修改的新路径名集合
    Dim i As Integer
    
    strRoot = "B:\Test\"
    'TODO:读取文件把文件名序列塞入colNewNames
    '这里就直接赋值不倒腾文件了
    colNewNames.Add "AAAA"
    colNewNames.Add "BBBB"
    colNewNames.Add "CCCC"
    
    '获取旧路径名序列
    strOldName = Dir(strRoot, vbDirectory)
    Do While strOldName <> ""
        If strOldName <> "." And strOldName <> ".." And (GetAttr(strRoot & strOldName) And vbDirectory) = vbDirectory Then
            colOldNames.Add strOldName
        End If
        strOldName = Dir(, vbDirectory)
    Loop
    '替换文件夹名
    '这里假设已存在的路径名序列数量小于等于你文本文件中的数据行数,否则报错
    For i = 1 To colOldNames.Count
        Name strRoot & colOldNames(i) As strRoot & colNewNames(i)
    Next


结贴吧

#9


引用 8 楼 chewinggum 的回复:

    Dim strRoot As String  '初始路径
    Dim strOldName As String
    Dim colOldNames As New Collection '旧路径名集合
    Dim colNewNames As New Collection '准备修改的新路径名集合
    Dim i As Integer
    
    strRoot = "B:\Test\"
    'TODO:读取文件把文件名序列塞入colNewNames
    '这里就直接赋值不倒腾文件了
    colNewNames.Add "AAAA"
    colNewNames.Add "BBBB"
    colNewNames.Add "CCCC"
    
    '获取旧路径名序列
    strOldName = Dir(strRoot, vbDirectory)
    Do While strOldName <> ""
        If strOldName <> "." And strOldName <> ".." And (GetAttr(strRoot & strOldName) And vbDirectory) = vbDirectory Then
            colOldNames.Add strOldName
        End If
        strOldName = Dir(, vbDirectory)
    Loop
    '替换文件夹名
    '这里假设已存在的路径名序列数量小于等于你文本文件中的数据行数,否则报错
    For i = 1 To colOldNames.Count
        Name strRoot & colOldNames(i) As strRoot & colNewNames(i)
    Next


结贴吧


完全菜鸟 不会用   保存为.VBS  打开提示语句为结束

#10


如何按照txt的行来批量重命名文件夹?
得了.最好手把手把你电脑上的都改好算了....

#11


靠!!不早说要VBS

#12


都懒得再写了,你纠结两天的时间,手工挨个也改完了

#13


熟悉一下for在批处理中的使用。

C:\> for /?
对一组文件中的每一个文件执行某个特定命令。

FOR %variable IN (set) DO command [command-parameters]

  %variable  指定一个单一字母可替换的参数。
  (set)      指定一个或一组文件。可以使用通配符。
  command    指定对每个文件执行的命令。
  command-parameters
             为特定命令指定参数或命令行开关。

在批处理程序中使用 FOR 命令时,指定变量请使用 %%variable
而不要用 %variable。变量名称是区分大小写的,所以 %i 不同于 %I.

如果命令扩展被启用,下列额外的 FOR 命令格式会受到
支持:

FOR /D %variable IN (set) DO command [command-parameters]

    如果集中包含通配符,则指定与目录名匹配,而不与文件
    名匹配。

FOR /R [[drive:]path] %variable IN (set) DO command [command-parameters]

    检查以 [drive:]path 为根的目录树,指向每个目录中的
    FOR 语句。如果在 /R 后没有指定目录,则使用当前
    目录。如果集仅为一个单点(.)字符,则枚举该目录树。

FOR /L %variable IN (start,step,end) DO command [command-parameters]

    该集表示以增量形式从开始到结束的一个数字序列。
    因此,(1,1,5) 将产生序列 1 2 3 4 5,(5,-1,1) 将产生
    序列 (5 4 3 2 1)。

FOR /F ["options"] %variable IN (file-set) DO command [command-parameters]
FOR /F ["options"] %variable IN ("string") DO command [command-parameters]
FOR /F ["options"] %variable IN ('command') DO command [command-parameters]

    或者,如果有 usebackq 选项:

FOR /F ["options"] %variable IN (file-set) DO command [command-parameters]
FOR /F ["options"] %variable IN ("string") DO command [command-parameters]
FOR /F ["options"] %variable IN ('command') DO command [command-parameters]

    filenameset 为一个或多个文件名。继续到 filenameset 中的
   下一个文件之前,每份文件都已被打开、读取并经过处理。
    处理包括读取文件,将其分成一行行的文字,然后将每行
    解析成零或更多的符号。然后用已找到的符号字符串变量值
    调用 For 循环。以默认方式,/F 通过每个文件的每一行中分开
    的第一个空白符号。跳过空白行。您可通过指定可选 "options"
    参数替代默认解析操作。这个带引号的字符串包括一个或多个
    指定不同解析选项的关键字。这些关键字为:

        eol=c           - 指一个行注释字符的结尾(就一个)
        skip=n          - 指在文件开始时忽略的行数。
        delims=xxx      - 指分隔符集。这个替换了空格和跳格键的
                          默认分隔符集。
        tokens=x,y,m-n  - 指每行的哪一个符号被传递到每个迭代
                          的 for 本身。这会导致额外变量名称的分配。m-n
                          格式为一个范围。通过 nth 符号指定 mth。如果
                          符号字符串中的最后一个字符星号,
                          那么额外的变量将在最后一个符号解析之后
                          分配并接受行的保留文本。
        usebackq        - 指定新语法已在下类情况中使用:
                          在作为命令执行一个后引号的字符串并且一个单
                          引号字符为文字字符串命令并允许在 filenameset
                          中使用双引号扩起文件名称。

    某些范例可能有助:

FOR /F "eol=; tokens=2,3* delims=, " %i in (myfile.txt) do @echo %i %j %k

    会分析 myfile.txt 中的每一行,忽略以分号打头的那些行,将
    每行中的第二个和第三个符号传递给 for 程序体;用逗号和/或
    空格定界符号。请注意,这个 for 程序体的语句引用 %i 来
    取得第二个符号,引用 %j 来取得第三个符号,引用 %k
    来取得第三个符号后的所有剩余符号。对于带有空格的文件
    名,您需要用双引号将文件名括起来。为了用这种方式来使
    用双引号,您还需要使用 usebackq 选项,否则,双引号会
    被理解成是用作定义某个要分析的字符串的。

    %i 专门在 for 语句中得到说明,%j 和 %k 是通过
    tokens= 选项专门得到说明的。您可以通过 tokens= 一行
    指定最多 26 个符号,只要不试图说明一个高于字母 'z' 或
    'Z' 的变量。请记住,FOR 变量是单一字母、分大小写和全局的;而且,
    同时不能有 52 个以上都在使用中。

    您还可以在相邻字符串上使用 FOR /F 分析逻辑;方法是,
    用单引号将括号之间的 filenameset 括起来。这样,该字符
    串会被当作一个文件中的一个单一输入行。

    最后,您可以用 FOR /F 命令来分析命令的输出。方法是,将
    括号之间的 filenameset 变成一个反括字符串。该字符串会
    被当作命令行,传递到一个子 CMD.EXE,其输出会被抓进
    内存,并被当作文件分析。因此,以下例子:

      FOR /F "usebackq delims==" %i IN (`set`) DO @echo %i

    会枚举当前环境中的环境变量名称。

另外,FOR 变量参照的替换已被增强。您现在可以使用下列
选项语法:

     ~I          - 删除任何引号("),扩展 %I
     %~fI        - 将 %I 扩展到一个完全合格的路径名
     %~dI        - 仅将 %I 扩展到一个驱动器号
     %~pI        - 仅将 %I 扩展到一个路径
     %~nI        - 仅将 %I 扩展到一个文件名
     %~xI        - 仅将 %I 扩展到一个文件扩展名
     %~sI        - 扩展的路径只含有短名
     %~aI        - 将 %I 扩展到文件的文件属性
     %~tI        - 将 %I 扩展到文件的日期/时间
     %~zI        - 将 %I 扩展到文件的大小
     %~$PATH:I   - 查找列在路径环境变量的目录,并将 %I 扩展
                   到找到的第一个完全合格的名称。如果环境变量名
                   未被定义,或者没有找到文件,此组合键会扩展到
                   空字符串

可以组合修饰符来得到多重结果:

     %~dpI       - 仅将 %I 扩展到一个驱动器号和路径
     %~nxI       - 仅将 %I 扩展到一个文件名和扩展名
     %~fsI       - 仅将 %I 扩展到一个带有短名的完整路径名
     %~dp$PATH:I - 搜索列在路径环境变量的目录,并将 %I 扩展
                   到找到的第一个驱动器号和路径。
     %~ftzaI     - 将 %I 扩展到类似输出线路的 DIR

在以上例子中,%I 和 PATH 可用其他有效数值代替。%~ 语法
用一个有效的 FOR 变量名终止。选取类似 %I 的大写变量名
比较易读,而且避免与不分大小写的组合键混淆。

#14


楼主,安装个VB6精减版吧,网上有个6MB左右大小的安装包那个,适合你使用一下。


引用 11 楼 chewinggum 的回复:
靠!!不早说要VBS

文件内容、目录列表,用不着使用集合对象吧!放数组内不就行了?
如何按照txt的行来批量重命名文件夹?

#15


引用 14 楼 Chen8013 的回复:
楼主,安装个VB6精减版吧,网上有个6MB左右大小的安装包那个,适合你使用一下。


Quote: 引用 11 楼 chewinggum 的回复:

靠!!不早说要VBS

文件内容、目录列表,用不着使用集合对象吧!放数组内不就行了?
如何按照txt的行来批量重命名文件夹?


小东西懒得用数组,数Index费神,用集合对象比较省心。这点点资源的浪费现在的机器不介意。

#16


本帖最后由 sysdzw 于 2018-04-28 09:25:06 编辑
Dim fso, theFile, ReadEntireFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set theFile = fso.OpenTextFile(fso.GetFolder(".").Path & "\标题.txt", 1, False)
Do While theFile.AtEndOfStream <> True
ReadEntireFile = ReadEntireFile & theFile.ReadLine & vbcrlf
Loop
theFile.Close
vLine=split(ReadEntireFile,vbcrlf)

Dim f, f1, fc
Set f = fso.GetFolder(".")
Set fc = f.SubFolders
For Each f1 in fc
  f1.name=vLine(i)
  i=i+1
Next

保存为vbs后缀双击


20180427追加
谢谢明月的提醒,删除了两行无用代码。

#17


引用 16 楼 sysdzw 的回复:
Dim fso, theFile, ReadEntireFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set theFile = fso.OpenTextFile(fso.GetFolder(".").Path & "\标题.txt", 1, False)
Do While theFile.AtEndOfStream <> True
ReadEntireFile = ReadEntireFile & theFile.ReadLine & vbcrlf
Loop
theFile.Close
vLine=split(ReadEntireFile,vbcrlf)

Dim f, f1, fc, s,i
Set f = fso.GetFolder(".")
Set fc = f.SubFolders
For Each f1 in fc
  ShowFolderList = ShowFolderList & f1.name & vbcrlf
  f1.name=vLine(i)
  i=i+1
Next

保存为vbs后缀双击



完美,谢谢雷锋