@_arti, post #6
@_arti, post #6
@Dopuser, post #1
@Dopuser, post #5
Resident >NIL: C:Assign PURE ; wrzucamy polecenie Assign do pamięci, żeby nie męczyć dysku ciągłym jego wczytywaniem ChangeTaskPri -128 >NIL: ; zmieniamy priorytet na -128 (najniższy - żeby działało to w tle) LAB Petla Assign >NIL: USB: EXISTS ; sprawdzamy obecność urządzenia USB: (tu pewnie trzeba będzie zmienić nazwę urządzenia na właściwe) IF WARN ; jeśli urządzenie USB: nie jest zamontowane... C:Wait 10 ; czekaj 10s SKIP Petla BACK ; wróć do początku pętli ELSE ; jeśli urządzenie USB: zostało zamontowane... C:GetDate >ENV:GDate ; pobierz datę i zapisz ją do zmiennej (programik leży na Aminecie) dzięki temu, będziemy różnicować nazwy archiwów C:LZX -a -bi8000 -bo8000 -e -F -M8000 -P1 -Qf -r -s -S -Y -9 a USB:SYS_$GDate SYS: ; Tworzymy archiwum za pomocą lzx - tu pewnie da się wywołać zamiast lzx np. Diavolo (np. przez jego sheduler) SKIP END ; skaczemy do końca skryptu ENDIF LAB END Resident Assign REMOVE ENDSHELL
@APC74, post #11
@gorzyga, post #13
@Dopuser, post #12
Resident >NIL: C:Assign PURE ChangeTaskPri -128 >NIL: LAB Petla Assign >NIL: USB: EXISTS IF WARN C:Wait 10 SKIP Petla BACK ELSE RequestChoice >NIL: TITLE "Auto Backup" BODY "*nWybierz rodzaj backupu*n" "Pełny" "Przyrostowy" "Anuluj backup" IF VAL $ReqChGG EQ 1 C:GetDate >ENV:GDate C:LZX -a -bi8000 -bo8000 -e -F -M8000 -P1 -Qf -r -S -Y -9 a USB:SYS_$GDate SYS: UnSet GDate SKIP END ENDIF IF VAL $ReqChGG EQ 2 C:GetDate >ENV:GDate C:LZX -a -bi8000 -bo8000 -e -F -M8000 -P1 -Qf -r -s -S -Y -9 a USB:SYS_$GDate SYS: UnSet GDate SKIP END ENDIF IF VAL $ReqChGG EQ 0 SKIP END ENDIF ENDIF LAB END Resident Assign REMOVE ENDSHELL
@APC74, post #15
@Dopuser, post #16
C:GetDate >ENV:GDate C:LZX -a -bi8000 -bo8000 -e -F -M8000 -P1 -Qf -r -Y -9 u USB:SYS SYS: C:FileNote USB:SYS.lzx $Gdate
@APC74, post #17
@Dopuser, post #16
@Dopuser, post #18
@Dopuser, post #18
@APC74, post #21
@APC74, post #20
@APC74, post #20