VBA操作文件和文件夹步骤

CurDir([drive])

Drive是一可选参数，如果你忽略它，VBA将使用当前驱动（drive）。

?CurDir

当你按下回车，VB就显示当前文件夹名称，例如：
C:
如果你有第二个硬盘（或者光驱）的话，你可以获取D盘上的当前文件夹，例如：

?CurDir(“D:”)

如果你提供了一个并不存在的驱动字母的话，VB就将显示下述错误信息：“设备不可用”

myDrive = Left(CurDir$,1)

当你按下回车键时，VB将当前驱动器的字母储存到变量myDrive
敲入下述指令并回车，可以检查变量myDrive的内容：

?myDrive

你还可以将上面的指令改为如下：

myDrive = left(CurDir$,1) & ":"

VB将返回驱动器字母，后面带有一个冒号。

更改文件或文件夹名称（Name 函数）

Name old_pathname As new_pathname

检查文件或文件夹是否存在（Dir 函数）

Dir[(pathname[, attributes])]

?Dir("C:", vbNormal)

你一旦按下回车键，VB就会返回该文件夹下的第一个文件名。普通文件（vbNormal）就是除隐藏，卷标，目录，文件夹或系统文件之外的任何文件。
要返回当前目录下的其它文件名称的话，就使用不带参数的Dir函数：
?Dir （并且回车）

mfile = Dir("C:", vbHidden)
?mfile
mfile = Dir
?mfile
mfile = Dir
?mfile

3. 在立即窗口输入下述指令：

If Dir("C:stamp.bat") = "" Then Debug.Print "文件未找到。"

因为stamp.bat文件不在C盘上，所以VB就在立即窗口里写下文本信息“文件未找到。”

If Dir ("C:Autoexec.bat") <>"" Then Debug.Print "该文件不在C盘上。"

函数Dir允许你在文件路径名中使用通配符——星号（*）代表多个字符，问号（?）代表单个字符：

?Dir("C:WINNT*.ini", vbNormal)
system.ini
?dir WIN.INI
?dir
WINFILE.INI
?dir control.ini
?dir EQUIP32.INI
?dir
sxpwin32.ini

下面显示的过程在立即窗口里写上了确定目录下的文件名称。函数LCase$让文件名称显示为小写字母。

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 Sub

上面的过程myFiles向用户询问文件路径名。如果该路径结尾没有反斜杠，函数Right就会将反斜杠附加在路径名字符串上。接下来，VB在该确定的文件夹里搜索所有文件（*）。如果没有文件的话，就会有信息显示，如果文件存在，那么文件名就会被写入立即窗口。

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 Sub

过程GetFiles获取C盘根目录下的所有文件名并且将每个文件名写入工作表。

?FileDateTime("C:config.sys")

?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.”

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