【第2~4行】定义变量,这里出现简写的定义语句,%表示短整型,另外还有&(长整型)、$(字符型)Dim count% 完整写法应该是:
Dim count as integer所以,第4行其实可以写成 Dim path$【第5行】初始化fso【第6行】数一下列表一共有多少行,即要重命名多少个文件夹【第7~12行】又是一个完整的For循环 【第7~8行】从第3行开始,把A列地址逐一赋值给path (注意,Sheet的第1行我留空了,用来放两个按钮;第2行是表头;所以应该从第3行开始) 【第9行】让ofolder指向path所代表的文件夹【第10行】重命名文件夹,运用到Name这个过程要注意它所使用的两个参数Cells(i,1).Value 是一串完整的地址,比如说:
D:\Display\文件夹 (1)然而,为了方便起见,D列里面,只写了文件夹的名称(比如,文件夹002)所以,在使用Name修改文件夹名称的时候,要把文件夹的上级地址加上,即
D:\Display\文件夹 (2)
代入之后,即为 Name D:\Display\文件夹 (1) as D:\Display\文件夹 (2)
假如不把上级地址加上会如何?即
Name D:\Display\文件夹 (1) as 文件夹 (2)
会如何?文件夹仍然会被重新命名,只是整个文件夹会挪到“我的文档”里面 【第11行】清空ofolder,以便下一次使用 【第12行】i累加1 【第13行】提示列表里面的文件夹已经全部重命名完毕了【第14行】本过程结束