Anh chị cho em hỏi cách xóa thư mục, file. Thư mục, file xóa đi vẫn còn trong thùng rác không bị xóa vĩnh viễn.

[hoctapphotoshop]

Em xử dụng
Dim fso As Object, FolderToDelete As String
Set fso = CreateObject("Scripting.FileSystemObject")
FolderToDelete= "D:\Sample"
If fso.FolderExists(NewFolder) then
fso.DeleteFolder(FolderToDelete)
End If
hoặc
Dim fso As Object, FileToDelete As String
Set fso = CreateObject("Scripting.FileSystemObject")
FileToDelete= "D:\Sample\Item1\Baitap.xls"
If fso.FileExists(FileToDelete) Then
fso.DeleteFile(FileToDelete)
End If
Thì Thư mục và file bị xóa vĩnh viễn; không có trong thùng rác nên không lấy lại được khi lỡ xóa nhầm.
em cám ơn anh chị!

 

[ongke0711]

Em xử dụng
Dim fso As Object, FolderToDelete As String
Set fso = CreateObject("Scripting.FileSystemObject")
FolderToDelete= "D:\Sample"
If fso.FolderExists(NewFolder) then
fso.DeleteFolder(FolderToDelete)
End If
hoặc
Dim fso As Object, FileToDelete As String
Set fso = CreateObject("Scripting.FileSystemObject")
FileToDelete= "D:\Sample\Item1\Baitap.xls"
If fso.FileExists(FileToDelete) Then
fso.DeleteFile(FileToDelete)
End If
Thì Thư mục và file bị xóa vĩnh viễn; không có trong thùng rác nên không lấy lại được khi lỡ xóa nhầm.
em cám ơn anh chị!

Bạn tìm hiểu hàm API của Windows nhé: SHFileOperationW()

 

[ptm0412]

Vậy thì dùng lệnh move thay vì xóa, đích là Recycle Bin

 

[hoctapphotoshop]

Vậy thì dùng lệnh move thay vì xóa, đích là Recycle Bin

em xử dụng đoạn mã theo hướng dẫn trên mạng thì bị lỗi trên. Chỉ cho em cách khắc phục ạ. em dùng 64bit
Đoạn mã em lấy từ: https://vbaa2z.blogspot.com/2021/02/vba-to-recycle-file-or-folder.html

 

[truongvu317]

bạn cut 3 dòng đầu tiên của code kia, rồi dúng xuống phía dưới cùng xem

 

[hoctapphotoshop]

bạn cut 3 dòng đầu tiên của code kia, rồi dúng xuống phía dưới cùng xem

cám ơn bạn. đã chạy rồi.