Delete Temp File Và Recnet Itemts Trong Windows (2 người xem)

[Kiều Mạnh]

Tình hình là trên máy Của Kiều Mạnh sau một thời gian dài sử dụng thì trong Folder Temp có chứa tới 2G rác và trong Recent Itemts có chứa quá nhiều Itemts đã mở trong quá trình sử dụng làm máy chậm một phần và lỗi Office ...........

Ngồi không rỗi hơi viết ra một tiện ích trên VB6 khi tải về chạy lần đầu nó sẽ ghi vào registry một khóa khởi động cùng windows

HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Run", "KieuManh", ClearTemp

Như vậy sau mỗi lần khởi động Windows thì File đó nó sẽ chạy và dọn dẹp Rác trong Folder Temp và Recent itemts ....

Mình Test trên máy Mình Wim10 + Win7+Winxp chạy tốt .... vậy mình Úp lên nhờ các bạn Test dùm trên máy khác có chạy khi khởi động Windows hay không báo lại mình với

Code sẻ xóa các file và folder Theo đường dẫn sau

Sub Get_Temp_RecentItemts()
    Dim TempPath As String, RecentItems As String
    TempPath = Environ("TMP")
    RecentItems = CreateObject("Shell.Application").Namespace(&H8&).Self.Path
    MsgBox TempPath
    MsgBox RecentItems
End Sub

Kiều Mạnh cảm ơn

 

[ndu96081631]

Tình hình là trên máy Của Kiều Mạnh sau một thời gian dài sử dụng thì trong Folder Temp có chứa tới 2G rác và trong Recent Itemts có chứa quá nhiều Itemts đã mở trong quá trình sử dụng làm máy chậm một phần và lỗi Office ...........

Ngồi không rỗi hơi viết ra một tiện ích trên VB6 khi tải về chạy lần đầu nó sẽ ghi vào registry một khóa khởi động cùng windows

HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Run", "KieuManh", ClearTemp

Như vậy sau mỗi lần khởi động Windows thì File đó nó sẽ chạy và dọn dẹp Rác trong Folder Temp và Recent itemts ....

Mình Test trên máy Mình Wim10 + Win7+Winxp chạy tốt .... vậy mình Úp lên nhờ các bạn Test dùm trên máy khác có chạy khi khởi động Windows hay không báo lại mình với

Code sẻ xóa các file và folder Theo đường dẫn sau

Sub Get_Temp_RecentItemts()
    Dim TempPath As String, RecentItems As String
    TempPath = Environ("TMP")
    RecentItems = CreateObject("Shell.Application").Namespace(&H8&).Self.Path
    MsgBox TempPath
    MsgBox RecentItems
End Sub

Kiều Mạnh cảm ơn

Không chắc lắm nhưng tôi e rằng đoạn Environ("TMP") sẽ "chết" khi đường dẫn xuất hiện tiếng Việt có dấu

 

[Kiều Mạnh]

Không chắc lắm nhưng tôi e rằng đoạn Environ("TMP") sẽ "chết" khi đường dẫn xuất hiện tiếng Việt có dấu

Thường Em nghĩ mấy Folder đó là mặc định của Windows mà Anh ...

không lẻ Bác Bill Viết tiếng Việt trong đó...Nếu vậy là Tèo chắc cú luôn...

Có cách nào xử lý vụ đó mà chơi được với tiếng viết có dấu và không dấu và xài trên các máy được không Anh ....

Nếu được Anh chỉ dùm Em với

Em cảm Ơn Anh

 

[Kiều Mạnh]

Nếu Vậy Em đổi kiểu này Chắc là Ok Anh coi dùm Em với

Sub GetTemp()
    Dim Fso As Object, TmpFolder 
    Set Fso = CreateObject("scripting.filesystemobject")
    Set TmpFolder = Fso.GetSpecialFolder(2)
    MsgBox TmpFolder
    Shell "explorer.exe " & TmpFolder, vbNormalFocus
    Set Fso = Nothing
End Sub

 

[ndu96081631]

không lẻ Bác Bill Viết tiếng Việt trong đó...Nếu vậy là Tèo chắc cú luôn...

UserName của ta tự đặt mà, thích viết tiếng gì mà chẳng được
Ví dụ lệnh ?Environ("TMP") trên máy tôi trả về kết quả C:\Users\Anh Tuấn\AppData\Local\Temp

 

[Kiều Mạnh]

Cảm Ơn Anh Ndu nhiều nhiều...

Vậy là Mạnh đã viết xong một tiện ích cỏn con .... Quét Rác Computer

Cài vào máy Mỗi khi khởi động Windows nó sẻ chạy Quét Rác một lần Sạch sẻ Ngon lành cành đào ...

Không Phải Setup Mà nhẹ nhàng chạy khoãng 2 giây là xong khi khởi động máy

Kiều Mạnh Úp lên đây nếu Bạn nào thích thì tải về xài chơi vậy....xong Phim

 

[Kiều Mạnh]

Trên mạng đầy rẩy chương trình quét rác mà bạn hiền? Sao lại khổ công ngồi viết vậy nhỉ???: ccleaner,...

Cái đó là của người ta mà.....

Ngồi không quậy một chút cho tiêu xầu xả xì chét thôi mà ....

Rồi đến một ngày nào đó cái đầu code két to thêm một tí ta lại viết một ứng dụng Hoành tráng hơn chẳng hạn...