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

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

本帖最后由 清风飘飘 于 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
        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

学习了。。谢谢。。
页: [1]
查看完整版本: 遍历D盘下所有的文件夹并重命名[已解决]