Folder Object-Completed

[Yukino Ichikawa]

Phương thức Delete:
Cấu trúc: Folder.Delete force
Tham số force: Nếu là True thì nó sẽ xóa thư mục kể cả đang ở chế độ Read Only. Nếu giản lược thì giá trị mặc định của nó là False.

Nếu folder chỉ định xóa không thực sự tồn tại thì sẽ xảy ra

Bạn cần đăng nhập để thấy link

. Vì vậy cần kiểm tra

Bạn cần đăng nhập để thấy link

.
Phương thức này đầu tiên sẽ xóa toàn bộ file trong folder. Sau đó mới tiến hành xóa folder. Nếu bạn giản lược tham số force hoặc chỉ định nó là False, cùng lúc đó trong thư mục cần xóa có file đang được đọc thì sẽ xảy ra lỗi 70. Trước khi lỗi phát sinh thì nó sẽ xóa các file bên trong folder mà không ở chế độ đang đọc. Để điều tra thuộc tính của file, bạn có thể cho chương trình kiểm tra thuộc tính

Bạn cần đăng nhập để thấy link

.

Sub test55()
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''Xoa thu muc C:\Work
    FSO.GetFolder("C:\Work").Delete
    Set FSO = Nothing
End Sub

Nguồn:

Bạn cần đăng nhập để thấy link

 

[vanthanhVBA]

Phương thức Move:
Cấu trúc: Folder.Move destination
Phương thức này hoạt động giống với phương thức

Bạn cần đăng nhập để thấy link

của FileSystemObject.

Sub test56()
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''Di chuyen thu muc C:\Work vao trong thu muc C:Tmp
    FSO.GetFolder("C:\Work").Move "C:\Tmp\"
    Set FSO = Nothing
End Sub

Nguồn:

Bạn cần đăng nhập để thấy link