VBA操作文件和文件夹步骤
获取当前文件夹的名称（CurDir 函数）
当你使用文件时，经常会需要知道当前文件夹的名称，你使用CurDir函数轻易地获取该信息：
CurDir([drive])CurDir函数返回一个文件路径作为Variant（变量）。如果要返回作为字符串（String）的路径的话，就得使用CurDir$（这里的$是字符串的类型声明字符）。让我们在立即窗口里做些练习，练习使用这些函数吧：
1. 打开一个新工作簿，并且切换到VB编辑器窗口
2. 激活立即窗口并敲入下述代码：
C:\
如果你有第二个硬盘（或者光驱）的话，你可以获取D盘上的当前文件夹，例如：
?CurDirC:\
如果你有第二个硬盘（或者光驱）的话，你可以获取D盘上的当前文件夹，例如：
?CurDir(“D:\”)3. 要储存当前驱动名称到变量myDrive，可以输入下述指令：
敲入下述指令并回车，可以检查变量myDrive的内容：
myDrive = Left(CurDir$,1)敲入下述指令并回车，可以检查变量myDrive的内容：
?myDrivemyDrive = left(CurDir$,1) & ":"更改文件或文件夹名称（Name 函数）
使用函数Name可以重命名文件或者文件夹，例如：
Name old_pathname As new_pathname请在立即窗口里试演该函数（用你文件的实际名称替换示例名称）。这里有些需要考虑的注意事项：
①在New_pathname里的文件名称不要指向已经存在的文件
Name "C:\System.1st " As "C:\test.txt"
因为文件C:\test.txt已经存在于C盘，VB将显示错误信息：“文件已存在”，同样，如果你要重命名的文件不存在的话，就会出现“文件未找到”的错误信息。
②如果New_pathname已经存在，并且和Old_pathname不同，函数Name必要时将文件移动到新文件夹并且更改它的名称。
Name "C:\System.1st " As "D:\test.txt"
因为文件test.txt在D盘的根目录下并不存在，VB将C:\System.1st
移动到指定的驱动盘，然而，并不重命名该文件。（本段与上面的内容似乎矛盾，而且未能试验成功，未知是原书失误与否。读者应仔细验证）
Name "C:\System.1st " As "D:\test.txt"
因为文件test.txt在D盘的根目录下并不存在，VB将C:\System.1st
移动到指定的驱动盘，然而，并不重命名该文件。（本段与上面的内容似乎矛盾，而且未能试验成功，未知是原书失误与否。读者应仔细验证）
③如果New_pathname和Old_pathname指向不同的目录，以及提供的文件名称相同，那么Name函数将指定的文件移到新地址，不用更改文件名。
Name "D:\test.txt " As "C:\DOS\test.txt"
上面的指令将test.txt移动到C盘下的DOS文件夹里。
Name "D:\test.txt " As "C:\DOS\test.txt"
上面的指令将test.txt移动到C盘下的DOS文件夹里。
技巧：你不能重命名开启的文件
在重命名文件之前，你必须关闭该文件。文件名称里不能包含通配符“*”或者“?”。
在重命名文件之前，你必须关闭该文件。文件名称里不能包含通配符“*”或者“?”。
检查文件或文件夹是否存在（Dir 函数）
Dir函数，返回文件或者文件夹名称，语法如下：
Dir[(pathname[, attributes])]
Dir函数常用来检查某个文件或文件夹是否存在，如果不存在，那么就返回空字符串（””）。我们到立即窗口里试验几个Dir函数的练习：
1. 在立即窗口，输入下述指令：
要返回当前目录下的其它文件名称的话，就使用不带参数的Dir函数：
?Dir （并且回车）
?Dir("C:\", vbNormal)要返回当前目录下的其它文件名称的话，就使用不带参数的Dir函数：
?Dir （并且回车）
2. 在立即窗口里输入下列指令，并且在你回车时检查其结果：
mfile = Dir("C:\", vbHidden)
?mfile
mfile = Dir
?mfile
mfile = Dir
?mfile
3. 在立即窗口输入下述指令：
If Dir("C:\stamp.bat") = "" Then Debug.Print "文件未找到。"4. 在立即窗口输入下述语句，可以检查某文件是否存在于某驱动盘上：
If Dir ("C:\Autoexec.bat") <>"" Then Debug.Print "该文件不在C盘上。"例如，要在WINDOWS文件夹中查找所有配置设置的文件，你可以查找所有的INI文件，如下：
?Dir("C:\WINNT\*.ini", vbNormal)
system.ini
?dir WIN.INI
?dir
WINFILE.INI
?dir control.ini
?dir EQUIP32.INI
?dir
sxpwin32.ini1. 打开一新工作簿，并保存为Chap08.xls
2. 切换到VB编辑器窗口并重命名VBA工程为FileMan
3. 插入新模块，重命名为DirFunction
4. 输入下述VBA过程：
Sub MyFiles()
Dim mfile As String
Dim mpath As String
mpath = InputBox("Enter pathname,e.g., C:\Excel")
If Right(mpath, 1) <> "\" Then mpath = mpath & "\"
mfile = Dir(mpath & "*.*")
If mfile <> "" Then Debug.Print "Files in the " & mpath _
& "folder"
Debug.Print LCase$(mfile)
If mfile = "" Then
MsgBox "No files found."
Exit Sub
End If
Do While mfile <> ""
mfile = Dir
Debug.Print LCase$(mfile)
Loop
End Sub5. 在同一个模块里输入另外一个过程：
Sub GetFiles()
Dim nfile As String
Dim nextRow As Integer
nextRow = 1
'next row index
With Worksheets("Sheet1").Range("A1")
nfile = Dir("C:\", vbNormal)
.Value = nfile
Do While nfile <> ""
nfile = Dir
.Offset(nextRow, 0).Value = nfile
nextRow = nextRow + 1
Loop
End With
End Sub4.获得文件修改的日期和时间（FileDateTime 函数）
如果你的过程需要知道某文件的最后修改的时间的话，可以使用函数FileDateTime：
FileDateTime(文件路径名)
FileDateTime(文件路径名)
文件路径名是个字符串，明确你要用的文件，并且需要包括驱动和文件夹的名称。该函数返回某文件的日期和时间印记。日期和时间的格式取决于视窗控制面板的原始设置。
我们在立即窗口里来练习使用该函数：
1. 在立即窗口里输入：
要分开获取日期和时间时，可以将函数FileDateTime作为函数DateValue或TimeValue的参数来使用。例如：
2. 在立即窗口里将下述语句在一行输入：
J]VVKD.gif)
对话框里设定的。
2. 在代码窗口了输入过程TotalBytesIni：
?FileDateTime("C:\config.sys")回车后，VB返回下述格式的日期和时间
5/4/2001 10:52:00 AM
要分开获取日期和时间时，可以将函数FileDateTime作为函数DateValue或TimeValue的参数来使用。例如：
?DateValue(FileDateTime("C:\config.sys"))
?TimeValue(FileDateTime("C:\config.sys"))If DateValue(FileDateTime("C:\config.sys"))< Date then Debug.Print "This file was not
modified today.”J]VVKD.gif)
对话框里设定的。 获得文件大小（FileLen 函数）
如果你需要检查某文件是否能够存在某磁盘上，那么你应该按照下述方式使用FileLen函数：
FileLen(文件路径名)
FileLen(文件路径名)
FileLen函数一字节方式返回文件的大小。如果该文件已打开，那么VB将返回该文件最后一个保存时的大小。
假设你想要获取Windows目录下进行配置设置的所有文件的总大小：
1. 在当前工程里插入新模块，并重命名为FileLenFunction
2. 在代码窗口了输入过程TotalBytesIni：
Sub TotalBytesIni()
Dim iniFile As String
Dim allBytes As Long
iniFile = Dir("C:\WINDOWS\*.ini")
allBytes = 0
Do While iniFile <> ""
allBytes = allBytes + FileLen("C:\WINDOWS\" & iniFile)
iniFile = Dir
Loop
Debug.Print "Total bytes: " & allBytes
End Sub