VBA实战(08) - 文件和文件夹处理

文件与目录汇总

创建文件夹

新建一个文件夹的关键字为 VBA.MkDir.

' 全路径
VBA.MkDir (filePath)

删除文件夹

删除文件夹的关键字是 ReDir.

RmDir "D:\NewFolder"

删除文件

删除文件夹的关键字是 Kill.

Kill (sumFileName)

复制文件

复制文件可以使用 FileCopy 函数实现。后面连接旧文件地址和新文件地址。

FileCopy(oldFile newFile)

修改文件名

直接使用 Name… As 即可,如果新旧文件的上级目录都是一样的话，这该功能也可以用于修改文件名。

Name oldFileName As newFileName

选择文件

下面代码可以弹出文件框，让用户选中文件，其中 strFile 为选中后的地址文件名，取消或关闭文件框均为退出程序。

'弹窗选择文件
With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = False   '单选择
    .Filters.Clear   '清除文件过滤器
    .Title = "请选择文件"
    .InitialFileName = ""
    .Filters.Add "Excel Files", "*.xls;*.xlsx"
    If .Show = -1 Then
        strFile = .SelectedItems(1)
    Else
        Exit Sub
    End If
End With

选择目录

下面代码可以弹出文件框，让用户选中目录，其中 strFolder 为选中后的地址目录名，取消或关闭文件框均为退出程序。

'弹窗选择文件夹
With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = "请选择文件夹"
    .InitialFileName = ""
    If .Show Then
        strFolder = .SelectedItems(1)
    Else
        Exit Sub
    End If
End With

判断字符串是不是文件夹或文件

如果 File 文件存在，那么 Dir(file)是有结果的，返回文件名。否则返回空字符串。

' 如果文件存在，则下面if 为 True
If Dir(strFolder & "\" & sumFileName) <> "" Then
    ' 文件存在就删除
    Kill (strFolder & "\" & sumFileName)
End If

If Dir(Range("D3").Value, vbDirectory) = "" Then
    MsgBox ("考勤明细文件地址不正确，请检查是否有误！")
    Range("D3").Select
    Exit Sub
End If

在文件夹中显示用户选中的文件

下面代码可以弹出一个文件框，并显示出用户指定的目录。

v_openFolder = Shell("explorer.exe /select," & targerFile, vbNormalFocus)

循环遍历一个文件夹下的所有文件

cFile = Dir(folderPath & "\*.xls*")
isFirstCopy = True
Do While cFile <> ""
    '''''''''''''''''''''
    ' 处理逻辑
    '''''''''''''''''''''
    cFile = Dir
Loop