4.4.4-文件操作:复制、删除、重命名

文件的常见操作有复制、删除、重命名,以上操作对所有类型的文件都是通用的。

  • 1)文件复制:FileCopy 原文件绝对地址,复制后文件的绝对地址,新生成了一个一模一样的文件

  • 2)文件重命名:Name 原文件绝对地址 As 重命名后的文件绝对地址,没有产生新文件,只是修改了文件名,如果前后文件所处文件夹地址变了,表示移动了文件,也就是说该功能同样可以实现移动文件功能。

  • 3)文件删除:Kill 文件绝对地址

以上三步操作都需要先确认该文件是否存在,对不存在的文件进行赋值、删除、重命名会报错。

Sub test4()
    currentPath = ThisWorkbook.Path
    folderAddress = currentPath & "\" & "删除"
    fileXName = "1.txt"
    fileXAddress = folderAddress & "\" & fileXName
    newFileXAddress = folderAddress & "\2.txt"
    new2FileXAddress = folderAddress & "\3.txt"
    
    FileCopy fileXAddress, newFileXAddress
    
    Name newFileXAddress As new2FileXAddress
    
    Kill fileXAddress
    
End Sub