文件操作：是否存在，复制，删除，改名

微信公众号原文

难度系数：初级

系统：Windows 7
软件：Excel 2010

学习路径图：

• 针对之前的学习路径图，会针对的写一些文章
• 今天讲讲对于文件的一般操作：判断是否存在，删除，复制，重命名

Part 1：示例说明

1. 判断当前文件夹下是否存在文件示例.txt
2. 复制文件示例.txt，生成两个文件：复制1.txt，复制2.txt
3. 删除文件示例.txt
4. 修改文件名称：复制2.txt 改为 修改名称.txt

程序运行前：

Part 2：代码

Sub main()
    rootAddress = ThisWorkbook.Path
    oldFileAddress = rootAddress & "\" & "示例.txt"
    
    '判断文件是否存在
    If Dir(oldFileAddress) <> "" Then
        Debug.Print ("文件存在：" & oldFileAddress)
    Else
        Debug.Print ("文件不存在：" & oldFileAddress)
    End If
    
    '复制文件
    newFileAddress1 = rootAddress & "\" & "复制1.txt"
    newFileAddress2 = rootAddress & "\" & "复制2.txt"
    FileCopy oldFileAddress, newFileAddress1
    FileCopy oldFileAddress, newFileAddress2
    
    '删除文件
    Kill oldFileAddress
    
    '修改名称
    newNameFileAddress = rootAddress & "\" & "修改名称.txt"
    Name newFileAddress2 As newNameFileAddress
End Sub

代码截图

运行结果

Part 3：部分代码解读

1. ThisWorkbook.Path获取当前Excel文件所在文件夹绝对地址

---

• 如需文中高清并可以无限放大路径图，可以文后留言留下邮箱，小编会发过去
• 本文为原创作品，如需转载，可加小编微信号learningBin

---

更多精彩，请关注微信公众号
扫描二维码，关注本公众号