Em xin code VBA xóa dữ liệu ( bao gồm cả các dữ liệu ẩn ) trong thùng rác

[hadoan-pap]

Em chào mọi người ạ.

Dạ, moi người ai có đoạn code nào để xóa dữ liệu trong thùng rác, bao gồm các các files + folders bị ẩn đi không cho em xin với ạ.

E xóa được các files + folders KHÔNG bị ẩn, nhưng các file và folder ẩn thì em chưa biết cách làm thế nào để xóa bằng code VBA ạ.

Em xin cảm ơn nhiều!

 

[Nhattanktnn]

Em chào mọi người ạ.

Dạ, moi người ai có đoạn code nào để xóa dữ liệu trong thùng rác, bao gồm các các files + folders bị ẩn đi không cho em xin với ạ.

E xóa được các files + folders KHÔNG bị ẩn, nhưng các file và folder ẩn thì em chưa biết cách làm thế nào để xóa bằng code VBA ạ.

Em xin cảm ơn nhiều!

Mục đích hướng tới là xóa file rác hả bạn? Hay mục đích là viết xóa file bằng VBA? Nếu chỉ là xóa file rác, làm sạch thùng rác thì nên cài phần mềm dọn dẹp thay vì VBA.

 

[hadoan-pap]

Mục đích hướng tới là xóa file rác hả bạn? Hay mục đích là viết xóa file bằng VBA? Nếu chỉ là xóa file rác, làm sạch thùng rác thì nên cài phần mềm dọn dẹp thay vì VBA.

Dạ, bên em định kỳ kiểm tra không cho user lưu dữ liệu ngoài File Server, nên e muốn làm cái code giúp mọi người clear được toàn bộ dữ liệu ở các thư mục linh tinh ạ.

Duy chỉ còn việc empty thùng rác là em chưa biết cách chạy trên VBA ạ.

Bài đã được tự động gộp: 7/1/22

Mục đích hướng tới là xóa file rác hả bạn? Hay mục đích là viết xóa file bằng VBA? Nếu chỉ là xóa file rác, làm sạch thùng rác thì nên cài phần mềm dọn dẹp thay vì VBA.

Dạ, em có đoạn script này mà đang chưa biết cách nào để call CMD lên rồi chạy thẳng lệnh này vào CMD ạ... KHÔNG phải chạy trực tiếp file Batch Script ạ.

del /s /q %systemdrive%\$Recycle.bin

 

[VetMini]

Mục đích hướng tới là xóa file rác hả bạn? Hay mục đích là viết xóa file bằng VBA? Nếu chỉ là xóa file rác, làm sạch thùng rác thì nên cài phần mềm dọn dẹp thay vì VBA.

Dạ tại vì em có đến 100 cớ.
Điển hình là cài phần mềm dọn dẹp em phải xin phép quản lý mạng, phải học cách dùng và cài đặt phần mềm, phải bảo quản phền mềm. Nhờ GPE viết giùm code thì em chỉ phải "bấm nút một phát". Mọi lỗi, cài đặt, bảo quản đã có GPE lo.

Em phải lợi dụng sự dễ dãi của bọn quản lý mạng. Bọn này ngu lắm: Files lưu trên Server àm chúng cho phép ma-cơ-rô tùm lum.

 

[Nhattanktnn]

không cho user lưu dữ liệu ngoài File Server

Không cho lưu vào server thì IT có thể chỉnh quyền truy cập trong server đó mà, nhưng thôi đó là vấn đề công ty bạn mình không bàn. Để tìm code thì lên google "vba empty recycle bin" nó ra đầy đó (mấy chữ tiếng anh này bạn cũng đã gõ trên rồi chứ khó gì đâu)

 

[hadoan-pap]

Dạ tại vì em có đến 100 cớ.
Điển hình là cài phần mềm dọn dẹp em phải xin phép quản lý mạng, phải học cách dùng và cài đặt phần mềm, phải bảo quản phền mềm. Nhờ GPE viết giùm code thì em chỉ phải "bấm nút một phát". Mọi lỗi, cài đặt, bảo quản đã có GPE lo.

Em phải lợi dụng sự dễ dãi của bọn quản lý mạng. Bọn này ngu lắm: Files lưu trên Server àm chúng cho phép ma-cơ-rô tùm lum.

Dạ, bên em thi thoảng có ban thanh tra đi kiểm tra xem nếu user nào lưu data nào khác ngoài File Server thì sẽ bị phạt... Nhưng nhiều tình huống vô tình các file đã xóa nhưng lại nằm trong thùng rác mà không để ý, hoặc các file download về nó nằm trong thư mục download nhưng cũng không để ý hoặc quên trong quá trình dọn dẹp ạ.

Nếu phát hiện các file kiểu như thế nằm trên Laptop thì vẫn sẽ bị phạt. Do đó em đang làm cái đoạn code để giúp mọi người click vào thì sẽ tìm và xóa hết các file linh tinh trong nhiều thư mục không lường trước được kiểu như vậy ạ.

Duy chỉ còn thùng rác là em chưa biết cách để empty nó trên code VBA ạ.

Em cảm ơn anh!

Bài đã được tự động gộp: 7/1/22

Không cho lưu vào server thì IT có thể chỉnh quyền truy cập trong server đó mà, nhưng thôi đó là vấn đề công ty bạn mình không bàn. Để tìm code thì lên google "vba empty recycle bin" nó ra đầy đó (mấy chữ tiếng anh này bạn cũng đã gõ trên rồi chứ khó gì đâu)

Dạ, em cũng tìm nhiều mà chưa tìm được code để empty dc thùng rác anh ạ. Sau đó em tìm được đoạn script để empty được như bên dưới rồi, nhưng chưa biết cách chạy đoạn này trong VBA như nào ạ.

del /s /q %systemdrive%\$Recycle.bin

 

[Nhattanktnn]

Dạ, bên em thi thoảng có ban thanh tra đi kiểm tra xem nếu user nào lưu data nào khác ngoài File Server thì sẽ bị phạt... Nhưng nhiều tình huống vô tình các file đã xóa nhưng lại nằm trong thùng rác mà không để ý

Theo mình thấy thì câu này hơi vô lý, file lưu server khi xóa thì nó không nằm trong thùng rác của máy đó

del /s /q %systemdrive%\$Recycle.bin

Theo mình biết đây là lệnh của Dos, muốn chạy thì phải lưu bằng file .bat và chạy VBA gọi nó. Tức là bạn phải tạo thêm file .bat nữa chứ không phải chỉ code trong VBA

Để tìm code thì lên google "vba empty recycle bin" nó ra đầy đó

Chắc bạn không quan tâm cái mình nó mà cứ cố giữ cách làm của bạn. Xem 2 trang đầu tiên trong này thì mình đã thấy code (chưa test) nhưng thấy họ nói "thanks" và đóng topic thì chắc là không có vấn đề.

 

[hadoan-pap]

Theo mình thấy thì câu này hơi vô lý, file lưu server khi xóa thì nó không nằm trong thùng rác của máy đó

Theo mình biết đây là lệnh của Dos, muốn chạy thì phải lưu bằng file .bat và chạy VBA gọi nó. Tức là bạn phải tạo thêm file .bat nữa chứ không phải chỉ code trong VBA

Chắc bạn không quan tâm cái mình nó mà cứ cố giữ cách làm của bạn. Xem 2 trang đầu tiên trong này thì mình đã thấy code (chưa test) nhưng thấy họ nói "thanks" và đóng topic thì chắc là không có vấn đề.
View attachment 271210

"Theo mình thấy thì câu này hơi vô lý, file lưu server khi xóa thì nó không nằm trong thùng rác của máy đó" ==> Dạ các file user làm trong ngày hoặc để trên laptop rồi xóa đi thì nó sẽ vào thùng rác ạ, không phải các file xóa từ File Server.

Em cũng tìm google thử nhưng nó loằng ngoằng và chạy không hiệu quả ạ. Em cũng chạy thử bằng file Batch Script rồi thì đã thành công, nhưng vì muốn nhúng cái code script dó vào VBA để nhóm chung vào 1 file kiểu thôi ạ.

Dạ, chắc để em tìm thêm cách khác ạ.

Em cảm ơn mọi người nhiều !

 

[VetMini]

Dạ, bên em thi thoảng có ban thanh tra đi kiểm tra xem nếu user nào lưu data nào khác ngoài File Server thì sẽ bị phạt... Nhưng nhiều tình huống vô tình các file đã xóa nhưng lại nằm trong thùng rác mà không để ý, hoặc các file download về nó nằm trong thư mục download nhưng cũng không để ý hoặc quên trong quá trình dọn dẹp ạ.

Nếu phát hiện các file kiểu như thế nằm trên Laptop thì vẫn sẽ bị phạt. Do đó em đang làm cái đoạn code để giúp mọi người click vào thì sẽ tìm và xóa hết các file linh tinh trong nhiều thư mục không lường trước được kiểu như vậy ạ.

Duy chỉ còn thùng rác là em chưa biết cách để empty nó trên code VBA ạ.
...

Đã nói ban quản lý của bạn là lũ dốt mờ.
Không muốn người dùng giữ Recycle Bin thì cứ lập một task chạy lòng vòng, xoá hết bins của các máy trong mạng. Hoặc dùng Group Policy xoá bins cũng được (nhiệm vụ của Group Policy là đòng bộ người dùng mờ.
Ban quản lý mạng giỏi hơn nữa thì cài cái background chạy trong máy người dùng, báo cáo luôn các trường hợp người dùng cắm USB copy files, đưa lên trữ trên mạng, ...

...

Dạ, em cũng tìm nhiều mà chưa tìm được code để empty dc thùng rác anh ạ. Sau đó em tìm được đoạn script để empty được như bên dưới rồi, nhưng chưa biết cách chạy đoạn này trong VBA như nào ạ.

del /s /q %systemdrive%\$Recycle.bin

Tôi dừng ở đây vì lý do cá nhân, tôi không tiếp xúc với ngôn ngữ viết tắt.

 

[Nhattanktnn]

"Theo mình thấy thì câu này hơi vô lý, file lưu server khi xóa thì nó không nằm trong thùng rác của máy đó" ==> Dạ các file user làm trong ngày hoặc để trên laptop rồi xóa đi thì nó sẽ vào thùng rác ạ, không phải các file xóa từ File Server.

Em cũng tìm google thử nhưng nó loằng ngoằng và chạy không hiệu quả ạ. Em cũng chạy thử bằng file Batch Script rồi thì đã thành công, nhưng vì muốn nhúng cái code script dó vào VBA để nhóm chung vào 1 file kiểu thôi ạ.

Dạ, chắc để em tìm thêm cách khác ạ.

Em cảm ơn mọi người nhiều !

Ngay cái Link đầu tiên trong hình chụp bài #7, cái này chắc không phải là ai giỏi hơn ai mà chắc do bạn không chịu vận động, mình copy y chang không sửa gì, và nó xóa thùng rác bình thường, không hiểu sao bạn nói chạy "loằng ngoằng":

Option Explicit

Private Declare Function EmptyRecycleBin Lib "shell32.dll" _
Alias "SHEmptyRecycleBinA" ( _
ByVal hwnd As Long, _
ByVal pszRootPath As String, _
ByVal dwFlags As Long) As Long

'// Just a basic emptying of the Folder
Sub RecycleBin_Empty()
Dim Para As Long
Dim lngRet As Long

lngRet = EmptyRecycleBin(0&, vbNullString, 1&)

End Sub

https://www.mrexcel.com/board/threads/to-clear-recycle-bin-with-vba.26916/

 

[hadoan-pap]

Ngay cái Link đầu tiên trong hình chụp bài #7, cái này chắc không phải là ai giỏi hơn ai mà chắc do bạn không chịu vận động, mình copy y chang không sửa gì, và nó xóa thùng rác bình thường, không hiểu sao bạn nói chạy "loằng ngoằng":

Option Explicit

Private Declare Function EmptyRecycleBin Lib "shell32.dll" _
Alias "SHEmptyRecycleBinA" ( _
ByVal hwnd As Long, _
ByVal pszRootPath As String, _
ByVal dwFlags As Long) As Long

'// Just a basic emptying of the Folder
Sub RecycleBin_Empty()
Dim Para As Long
Dim lngRet As Long

lngRet = EmptyRecycleBin(0&, vbNullString, 1&)

End Sub

https://www.mrexcel.com/board/threads/to-clear-recycle-bin-with-vba.26916/

Dạ , em cũng thử nhiều cách như này nhưng đang bị lỗi như ảnh em chụp ạ.

Em sợ làm theo cách này nếu các ver excel của user mà nó đang khác nhau thì cũng sẽ bị ảnh hưởng nên em mới tìm cách khác để dễ dùng và mở rộng nhất ạ.