遍历D盘下所有的文件夹并重命名[已解决]

清风飘飘 · 发表于 2011-5-10 18:48:56

本帖最后由清风飘飘于 2011-5-19 16:36 编辑

小弟最近接到LB的通知，要把公司的所有电脑文件整理。想写个工具帮帮忙，但是遇到了一个问题：

如何把D盘下所有的文件夹重命名，文件不需要，命名的格式为：原文件夹的名称后加 .VPT。

我看了相关的的帖子，但是糊里糊涂的没看明白。

netegg · 发表于 2011-5-10 20:25:11

子文件夹改不改？

清风飘飘 · 发表于 2011-5-11 20:00:24

回复 2# netegg

不需要。只要改D盘目录下的就行。

502762378 · 发表于 2011-5-11 20:21:54

#Include <File.au3>
$FileList=_FileListToArray("d:")
For $i = 1 To $FileList[0]
        DirMove("d:"&$FileList[$i],"d:"&$FileList[$i]&".vpt",0)
Next

netegg · 发表于 2011-5-11 21:08:37

回复 4# 502762378

函数用的对了，不过没写对，按楼主的要求，大概这样更合适
_FileListToArray("d:\", 2)

masterpcc · 发表于 2011-5-11 21:13:08

谢谢分享！！

502762378 · 发表于 2011-5-11 21:21:45

回复 5# netegg

没注意这个，谢谢蛋大指点

pingfan5888 · 发表于 2016-4-14 09:16:27

学习了。。谢谢。。

		自动登录	找回密码
密码			加入

[AU3基础] 遍历D盘下所有的文件夹并重命名[已解决]