Jump to content
CCleaner Community Forums


  • Content Count

  • Joined

  • Last visited

Community Reputation

0 Neutral

About nicklad

  • Rank
  • Birthday 21/08/1985

Profile Information

  • Location
    Nottingham, UK
  1. No offense but I really don't understand why you feel so threatened and are being so hostile and derisory towards me. I certainly don't feel that I am wasting my time. And how can somebody steal code that has been posted in the open? (Don't forget that this is Visual Basic - its simple to code in...) I am not after any recognition - or anything like that, I just want to see CCleaner get better. I don't see why you are intent on besmirching me. The ability to clean multiple profiles would, in my opinion, make this great program even better. I am not disputing anybody's abil
  2. Only offer all user cleaning if the user is logged on as a local administrator. Private Declare Function IsNTAdmin Lib "advpack.dll" (ByVal dwReserved As Long, ByRef lpdwReserved As Long) As LongPublic Function IsAdmin() as BooleanIsAdmin = CBool(IsNTAdmin(ByVal 0&, ByVal 0&))End Function If cleaning fails because of NTFS file permissions denying the local administrator rights, then so be it. But have some form of notification to say that it failed. Ok, I take your point about logged on users: Option ExplicitPrivate Const HKEY_LOCAL_MACHINE = &H80000002Priv
  3. Private Const HKEY_LOCAL_MACHINE = &H80000002Public Function EnumProfiles(ByRef ProfilesDir As String) As BooleanOn Error GoTo ErrorOcc? ?Dim objRegistry, arrSubkeys, objSubkey, strKeyPath As String, strSubPath As String, strValue As String? ?Set objRegistry = GetObject("winmgmts:\\.\root\default:StdRegProv")? ?strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList"? ?If objRegistry.GetExpandedStringValue(HKEY_LOCAL_MACHINE, strKeyPath, "ProfilesDirectory", ProfilesDir) <> 0 Then GoTo ErrorOcc? ?If objRegistry.GetStringValue(HKEY_LOCAL_MACHINE, strKeyPath, "AllUsersPr
  4. This could be achieved with: Public Sub CleanPatchArchive() On Error Resume Next Dim fs, f, f1, fc Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(Environ("windir")) Set fc = f.SubFolders For Each f1 In fc If f1.Name Like "$*$" Then fs.DeleteFolder Environ("windir") & "\" & f1.Name End If Next f1End Sub
  5. Still doesnt work Does it make a difference that these folders are, by default, hidden, read only and compressed? Or is it the $ character that is confusing CCleaner?
  6. Can anyone tell me what I have done wrong with this rule? - It doesnt seem to have any effect... [Windows Backups] LangSecRef=3025 Default=True FileKey1=%windir%\|$*|RECURSE
  7. The following two features would be exceptionally useful for me: 1. The ability to delete the remenance of any roaming profiles from a hard disk. (In the documents and settings folder.) 2. The ability to delete any folders in the windows directory that begin with a $. (Such as the $NTUninstall*$ directories and $NtServicePackUninstall$). Cheers and thanks for an awesome program!, Nick
  • Create New...