VBA学习笔记（3）--文件夹操作

说明（2017.3.22）：

1. 根据兰色幻想VBA80集视频教学，总结

2. 大部分可以用自带函数处理，不过复制文件夹需要用到FileSystemObject对象，打开文件夹用到shell

Public Sub test1()
'1. 判断文件夹是否存在，dir第二个参数为vbDirectory，不然只判断文件是否存在
    If Dir(ThisWorkbook.path & "1.docx", vbDirectory) = "" Then
        MsgBox ("不存在")
    Else
        MsgBox ("存在")
    End If
End Sub

Public Sub test2()
'2. 新建文件夹mkdir
    MkDir (ThisWorkbook.path & "233")
End Sub

Public Sub test3()
'3. 删除文件夹，rmdir，只能删除空文件夹，如果要删除所有文件要先用kill删除里面所有文件
    RmDir (ThisWorkbook.path & "233")
End Sub

Public Sub test4()
'4. 重命名文件夹和文件，name，这个方法不能加括号
    Name ThisWorkbook.path & "233" As ThisWorkbook.path & "23333333"
    Name ThisWorkbook.path & "1.docx" As ThisWorkbook.path & "2.docx"
End Sub

Public Sub test5()
'5. 移动文件夹，name，可以连里面的文件一起移动
    Name ThisWorkbook.path & "2" As ThisWorkbook.path & "123333333"
End Sub

Public Sub test6()
'6. 复制文件，filecopy，后面的目的地要带上文件名，但是这个不能复制文件夹
    FileCopy ThisWorkbook.path & "1.docx", ThisWorkbook.path & "11.docx"
    
End Sub

Public Sub test7()
'7. 复制文件夹和内部所有文件，用到FileSystemObject，要先引入Microsoft Scripting Runtime
'copyfolder复制文件夹，copyfile复制文件，只需要路径，不需要文件名，还可以顺便改名
    Dim fso As FileSystemObject
    Set fso = New FileSystemObject
'    fso.CopyFolder ThisWorkbook.path & "2", ThisWorkbook.path & "13"
    fso.CopyFile ThisWorkbook.path & "1.docx", ThisWorkbook.path & "12.docx"
    MsgBox "已复制"
End Sub

Public Sub test8()
'8. 打开文件夹，shell，真的就是打开文件夹，弹出来一个窗口！第二个参数，数字1是打开并显示，2是打开并最小化，3是打开最大化
    Shell "explorer.exe " & ThisWorkbook.path & "1", 1
End Sub