获取当前文件夹的名称(CurDir 函数)
当你使用文件时,经常会需要知道当前文件夹的名称,你使用CurDir函数轻易地获取该信息:
CurDir([drive])
Drive是一可选参数,如果你忽略它,VBA将使用当前驱动(drive)。
CurDir函数返回一个文件路径作为Variant(变量)。如果要返回作为字符串(String)的路径的话,就得使用CurDir$(这里的$是字符串的类型声明字符)。让我们在立即窗口里做些练习,练习使用这些函数吧:
1. 打开一个新工作簿,并且切换到VB编辑器窗口
2. 激活立即窗口并敲入下述代码:
?CurDir
当你按下回车,VB就显示当前文件夹名称,例如:
C:
如果你有第二个硬盘(或者光驱)的话,你可以获取D盘上的当前文件夹,例如:
?CurDir(“D:”)
如果你提供了一个并不存在的驱动字母的话,VB就将显示下述错误信息:“设备不可用”
3. 要储存当前动名称到变量myDrive,可以输入下述指令:
myDrive = Left(CurDir$,1)
当你按下回车键时,VB将当前驱动器的字母储存到变量myDrive
敲入下述指令并回车,可以检查变量myDrive的内容:
?myDrive
你还可以将上面的指令改为如下:
myDrive = left(CurDir$,1) & ":"
VB将返回驱动器字母,后面带有一个冒号。
更改文件或文件夹名称(Name 函数)
使用函数Name可以重命名文件或者文件夹,例如:
Name old_pathname As new_pathname
Old_pathname是你想用重命名的文件或文件夹的名称和路径,New_pathname则明确文件或文件夹的新名称和位置。使用函数Name,你可以将一个文件从一个文件夹移动到另外一个文件夹&#