Re: DAG_cleaner скрипт для добычи полезных ископаемых ETH в окнах ...
Она просто удаляет все, кроме текущего используемого DAG и новейшей DAG (один будет использоваться).
Я сделал это потому, что новейший genoil ethminer аварии, когда я пытаюсь установить функцию autodag удаления. На 12 различных установок он выходит из строя = (
Код:
#region; **** Директивы, созданные AutoIt3Wrapper_GUI ****
# AutoIt3Wrapper_Icon = .. \ Program Files (x86) \ AutoIt3 \ Icons \ MyAutoIt3_Blue.ico
# AutoIt3Wrapper_Change2CUI = у
#endregion; **** Директивы, созданные AutoIt3Wrapper_GUI ****
$ DAGDIR = FileGetShortName (@LocalAppDataDir & "\ ethash")
$ DAGDIRCUST = FileGetShortName (@HomeDrive & "\ ethash")
В то время как 1
Sleep (2 * 60 * 1000)
ConsoleWrite ("Удаление неиспользуемых файлов DAG ..." & @CRLF)
; FileDelete ($ DAGDIR & "\ *")
; FileDelete ($ DAGDIRCUST & "\ *")
_DeleteDAG ($ DAGDIR)
_DeleteDAG ($ DAGDIRCUST)
ConsoleWrite ("Удаление полной" & @CRLF)
Sleep (1 * 24 * 60 * 60 * 1000)
венед
Func _DeleteDAG ($ реж)
местный $ поиск = FileFindFirstFile ($ реж & "\ *")
местный $ заперта, $ prevtime, $ CurTime
местные $ новейшие = 0,
местный $ newestfilename
В то время как 1
$ Файл = FileFindNextFile ($ поиск)
; ConsoleWrite ($ файл & @CRLF)
если @error то ExitLoop
$ CurTime = FileGetTime ($ реж & "\" & $ Файла, 0, 1)
если $ CurTime > $ Новейший Тогда
$ Новейший = $ CurTime
$ Newestfilename = $ файл
EndIf
венед
FileClose ($ поиск)
$ Поиск =""
$ Поиск = FileFindFirstFile ($ реж & "\ *")
В то время как 1
$ Файл = FileFindNextFile ($ поиск)
если @error то ExitLoop
если $ файл == $ newestfilename затем ContinueLoop
FileDelete ($ реж & "\" & $ Файл)
венед
FileClose ($ поиск)
EndFunc
# AutoIt3Wrapper_Icon = .. \ Program Files (x86) \ AutoIt3 \ Icons \ MyAutoIt3_Blue.ico
# AutoIt3Wrapper_Change2CUI = у
#endregion; **** Директивы, созданные AutoIt3Wrapper_GUI ****
$ DAGDIR = FileGetShortName (@LocalAppDataDir & "\ ethash")
$ DAGDIRCUST = FileGetShortName (@HomeDrive & "\ ethash")
В то время как 1
Sleep (2 * 60 * 1000)
ConsoleWrite ("Удаление неиспользуемых файлов DAG ..." & @CRLF)
; FileDelete ($ DAGDIR & "\ *")
; FileDelete ($ DAGDIRCUST & "\ *")
_DeleteDAG ($ DAGDIR)
_DeleteDAG ($ DAGDIRCUST)
ConsoleWrite ("Удаление полной" & @CRLF)
Sleep (1 * 24 * 60 * 60 * 1000)
венед
Func _DeleteDAG ($ реж)
местный $ поиск = FileFindFirstFile ($ реж & "\ *")
местный $ заперта, $ prevtime, $ CurTime
местные $ новейшие = 0,
местный $ newestfilename
В то время как 1
$ Файл = FileFindNextFile ($ поиск)
; ConsoleWrite ($ файл & @CRLF)
если @error то ExitLoop
$ CurTime = FileGetTime ($ реж & "\" & $ Файла, 0, 1)
если $ CurTime > $ Новейший Тогда
$ Новейший = $ CurTime
$ Newestfilename = $ файл
EndIf
венед
FileClose ($ поиск)
$ Поиск =""
$ Поиск = FileFindFirstFile ($ реж & "\ *")
В то время как 1
$ Файл = FileFindNextFile ($ поиск)
если @error то ExitLoop
если $ файл == $ newestfilename затем ContinueLoop
FileDelete ($ реж & "\" & $ Файл)
венед
FileClose ($ поиск)
EndFunc
