Asus pc ram temizleme acil

[1Turkic1]

Eskiden ramim dolmazdı amaa... artık çok hızlı doluyor ve googlede çok alıor hızlı dolmaması için ne yapabilirim ve bilgisayarda donmaya başladı

Mesaj otomatik birleştirildi: 22 Kasım 2021

Eskiden ramim dolmazdı amaa... artık çok hızlı doluyor ve googlede çok alıor hızlı dolmaması için ne yapabilirim ve bilgisayarda donmaya başladı

 

[ThorJ]

Eskiden ramim dolmazdı amaa... artık çok hızlı doluyor ve googlede çok alıor hızlı dolmaması için ne yapabilirim ve bilgisayarda donmaya başladı

Mesaj otomatik birleştirildi: 22 Kasım 2021

RAM kaç GB?

 

[1Turkic1]

RAM kaç GB?

4 gb

 

[突厥汗國]

'===DeleteTempFiles.vbs===
 'from Michael Harris
 'Edited By BlueLife
On Error Resume Next
Const TemporaryFolder = 2 'for GetSpecialFolder
set fso = createobject("scripting.filesystemobject")

arFiles = array()
count = -1

tempdir = fso.GetSpecialFolder(TemporaryFolder)

SelectFiles tempdir
msgbox count+1 & " files found"

dcount = 0
for each file in arFiles
    on error resume next
    file.delete true
    if err.number = 0 then dcount = dcount + 1
    err.clear
    on error goto 0
next

DeleteEmptyFolders tempdir,false

msgbox count+1 & " files found, " & dcount & " deleted."
sub SelectFiles(sPath)
    On Error Resume Next
    set folder = fso.getfolder(sPath)
    set files = folder.files
    for each file in files
        count = count + 1
        redim preserve arFiles(count)
        set arFiles(count) = file
    next
    for each fldr in folder.subfolders
        SelectFiles fldr.path
    next
    end sub
sub DeleteEmptyFolders(sPath,bDeleteThisFolder)
    On Error Resume Next
    set folder = fso.getfolder(sPath)
    for each fldr in folder.subfolders
        DeleteEmptyFolders fldr.path,true
    next

    if (folder.files.count = 0) and _
        (folder.subfolders.count) = 0 and _
        bDeleteThisFolder then
        folder.delete
        exit sub
    end if
end sub

Temp Dosyalarını sılerek sorunu cozebılırsınız, Yukardakı koduu Yenı Metın Belgısıne farklı kaydetıp sonunu vbs yapın ve calıstırın..

 

[1Turkic1]

'===DeleteTempFiles.vbs===
 'from Michael Harris
 'Edited By BlueLife
On Error Resume Next
Const TemporaryFolder = 2 'for GetSpecialFolder
set fso = createobject("scripting.filesystemobject")

arFiles = array()
count = -1

tempdir = fso.GetSpecialFolder(TemporaryFolder)

SelectFiles tempdir
msgbox count+1 & " files found"

dcount = 0
for each file in arFiles
    on error resume next
    file.delete true
    if err.number = 0 then dcount = dcount + 1
    err.clear
    on error goto 0
next

DeleteEmptyFolders tempdir,false

msgbox count+1 & " files found, " & dcount & " deleted."
sub SelectFiles(sPath)
    On Error Resume Next
    set folder = fso.getfolder(sPath)
    set files = folder.files
    for each file in files
        count = count + 1
        redim preserve arFiles(count)
        set arFiles(count) = file
    next
    for each fldr in folder.subfolders
        SelectFiles fldr.path
    next
    end sub
sub DeleteEmptyFolders(sPath,bDeleteThisFolder)
    On Error Resume Next
    set folder = fso.getfolder(sPath)
    for each fldr in folder.subfolders
        DeleteEmptyFolders fldr.path,true
    next

    if (folder.files.count = 0) and _
        (folder.subfolders.count) = 0 and _
        bDeleteThisFolder then
        folder.delete
        exit sub
    end if
end sub

Temp Dosyalarını sılerek sorunu cozebılırsınız, Yukardakı koduu Yenı Metın Belgısıne farklı kaydetıp sonunu vbs yapın ve calıs

aga ii de Pek güvenemedim +Vbs yaparsam geçermi + video varmı

Mesaj otomatik birleştirildi: 22 Kasım 2021

aga ii de Pek güvenemedim +Vbs yaparsam geçermi + video varmı

bilemedim