Accedi per seguire   
Seguaci 0
diabolicus77

Spazio Hd Insufficente

4 messaggi in questa discussione

Si potrebbe eliminare quella scritta non appena windows si avvia di spazio sull' hard disk insufficente?

Ci sono 50 mb disponibili e vorrei fare in modo di non essere più avvisato.

Grazie

Condividi questo messaggio


Link di questo messaggio
Condividi su altri siti

Dalla knowledge base Microsoft: qui

In ogni caso, ti conviene dare una pulita e/o comprimere qualcosa, perchè con così poco spazio disponibile, rischi di avere problemi con l'uso del computer.

Tipo per processi che hanno bisogno di posto per metterci i file temporanei.

Condividi questo messaggio


Link di questo messaggio
Condividi su altri siti
Si potrebbe eliminare quella scritta non appena windows si avvia di spazio sull' hard disk insufficente?

Ci sono 50 mb disponibili e vorrei fare in modo di non essere più avvisato.

Grazie

50MB sono veramente pochissimi. Piuttosto che rimuovere la scritta, elimina un pò di file inutili perchè sennò tra qualche giorno il PC non ti si avvierà più

Condividi questo messaggio


Link di questo messaggio
Condividi su altri siti

spero che non provi usi una stampante altrimenti se provi a stampare rischi un blocco totale.

disabilita e riabilita il ripristino di sistema, ti dovrebbe liberare almeno un 10%

poi fai pulizia con dustbuster...

copia e incolla con il note il testo nel box e salva con estensione .vbs

poi lancialo ed aspetta, rimuovera' i backup dei windows updates.

dopo farei anche un defrag.......chissa' come sara' frammentato!!

If MsgBox("This program will now remove uninstall folders.", _

vbOkCancel, "Uninstall Remover") = vbOk Then

Set oShell = CreateObject("WScript.Shell")

Set oFSO = CreateObject("Scripting.FileSystemObject")

sWinDir = oFSO.GetSpecialFolder(0)

Set oFolder = oFSO.GetFolder(sWinDir)

Set oDictionary = CreateObject("Scripting.Dictionary")

For Each oSubFolder In oFolder.SubFolders

sFolderName = LCase(oSubFolder.Name)

sFolderPath = LCase(oSubFolder.Path)

If Left(sFolderName, 13) = "$ntuninstallq" _

Or Left(sFolderName, 14) = "$ntuninstallkb" Then

' Get the update name for the registry delete:

sUpdateName = Mid(sFolderName, 13, Len(sFolderName) - 13)

' Never delete folders/files while enumerating a file/folder collection.

' Adds them to a dictionary object for later handling instead:

oDictionary.Add sUpdateName, sFolderPath

End If

Next

sDeleted = ""

For Each sUpdateName In oDictionary.Keys

sDeleted = sDeleted & vbCrLf & sUpdateName

sFolderPath = oDictionary.Item(sUpdateName)

On Error Resume Next

' Remove entry in Add/Remove Programs:

oShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows\" _

& "CurrentVersion\Uninstall\" & sUpdateName & "\"

On Error Goto 0

' Delete the unisntall folder:

oShell.Run "%Comspec% /C RD /S /Q " _

& Chr(34) & sFolderPath & Chr(34), 0, True

Next

If sDeleted <> "" Then

MsgBox "The uninstall data for the following updates has been removed:" _

& vbCrLf & UCase(sDeleted)

Else

MsgBox "No update uninstall data found."

End If

End If

Condividi questo messaggio


Link di questo messaggio
Condividi su altri siti

Crea un account o accedi per lasciare un commento

Devi essere un utente registrato per partecipare

Crea un account

Iscriviti per un nuovo account nella nostra community. È facile!


Registra un nuovo account

Accedi

Sei già registrato? Accedi qui.


Accedi Ora
Accedi per seguire   
Seguaci 0