Suppression des vieux fichiers

DIM rep$,sf$,nj%,ns%
rep$ = "C:\PANORAMIC"+CHR$(92)
sf$ = "*.bak"
nj% = 10
Sup_old(rep$,sf$,nj%): ' suppression des fichiers .bak plus vieux que 10 jours
message clipboard_string_paste$+" fichiers supprimés"
END
' ==============================================================================
SUB Sup_old(rep$,suf$,nj%)
' Suppression de tous les fichiers de type suf$ du répertoire rep$ plus vieux
' que nj% jours
' Le nombre de fichiers supprimés est rendu dans le presse-papier.
DIM_LOCAL mm%,i%,j%,art$,dj$,dsj%,ds%,a%,m%,ds_res,ds_bi,ns%
IF LABEL("DateSerial")=0 THEN LABEL Dateserial
mm% = 1000: WHILE OBJECT_EXISTS(mm%)=1: mm%=mm%+1: END_WHILE
MEMO mm%: WIDTH mm%,600: HIDE mm%
EXECUTE_WAIT "Cmd.exe /c DIR "+rep$+suf$+" | clip": CLIPBOARD_PASTE mm%
j%=VAL(LEFT$(DATE$,2)): m%=VAL(MID$(DATE$,4,2)): a%=VAL(RIGHT$(DATE$,4))
GOSUB DateSerial: dsj% = ds%: ' date série du jour
ns% = 0
FOR i% = 1 TO COUNT(mm%)
    art$=ITEM_READ$(mm%,i%)
    IF art$<>"" AND LEFT$(art$,1) <> " "
        j%=VAL(LEFT$(art$,2)): m%=VAL(MID$(art$,4,2)): a%=VAL(MID$(art$,7,4))
        GOSUB DateSerial
        IF ds% < (dsj%-nj%)
            art$ = RIGHT_POS$(art$,37)
            FILE_DELETE rep$+art$
            ns% = ns%+1: ' nombre de fichiers supprimés
        END_IF
    END_IF
NEXT i%
DELETE mm%
CLIPBOARD_STRING_COPY STR$(ns%)
EXIT_SUB
DateSerial:
' Date série en fonction de Annee, Mois, Jour -> ds%
SELECT m%
    CASE 1: ds_res = 0
    CASE 2: ds_res = 31
    CASE 3: ds_res = 59
    CASE 4: ds_res = 90
    CASE 5: ds_res = 120
    CASE 6: ds_res = 151
    CASE 7: ds_res = 181
    CASE 8: ds_res = 212
    CASE 9: ds_res = 243
    CASE 10: ds_res = 273
    CASE 11: ds_res = 304
    CASE 12: ds_res = 334
END_SELECT
ds_res = ds_res + j% - 1
IF (FRAC(a%/4)=0 AND FRAC(a%/100)>0) OR FRAC(a%/400)=0: ' bissextile
    IF m% > 2 THEN ds_res = ds_res + 1
END_IF
REPEAT
    a% = a%-1: ds_bi = 0
    IF (FRAC(a%/4)=0 AND FRAC(a%/100)>0) OR FRAC(a%/400)=0 THEN ds_bi=1
    ds_res = ds_res + 365 + ds_bi
UNTIL a% <= 1753
ds% = ds_res-53688: ' date serial
RETURN
END_SUB
' ==============================================================================

rem ============================================================================
rem        Vieux fichiers, allez-vous-en !
rem          Code original de : JL35
rem          Relookage de : Papydall
rem ============================================================================
DIM rep$,sf$,nj%,ns%
rep$ = "D:\Panoramic\Mesprogrammes"+CHR$(92) : ' A adapter ...
sf$ = "*.bak"
nj% = 10
Sup_old(rep$,sf$,nj%): ' suppression des fichiers .bak plus vieux que nj% jours
END
rem ============================================================================
' Suppression de tous les fichiers de type suf$ du répertoire rep$ plus vieux
' que nj% jours
' Le nombre de fichiers supprimés est rendu dans le presse-papier.

SUB Sup_old(rep$,suf$,nj%)
    DIM mm%,i%,j%,art$,dj$,dsj%,ds%,a%,m%,ds_bi,ds_res
    dim_local t$
    mm% = 1000: WHILE OBJECT_EXISTS(mm%)=1: mm%=mm%+1: END_WHILE
    MEMO mm%: WIDTH mm%,600: HIDE 0
    EXECUTE_WAIT "Cmd.exe /c DIR "+rep$+suf$+" | clip": CLIPBOARD_PASTE mm%
    j%=VAL(LEFT$(DATE$,2)): m%=VAL(MID$(DATE$,4,2)): a%=VAL(RIGHT$(DATE$,4))
    DateSerial(m%)
    dsj% = ds%: ' date série du jour
    ns% = 0
    t$ = string$(30," ") +"Attention !!!"+chr$(13)+"Des fichiers vont être définitivement supprimés !"
    t$ = t$ + chr$(13)+ "Vous êtes prévenu ! Yes : Supprimer  No : Annuler"
    if message_warning_yes_no(t$) <> 1
       exit_sub
    end_if
    FOR i% = 1 TO COUNT(mm%)
        art$=ITEM_READ$(mm%,i%)
        IF art$<>"" AND LEFT$(art$,1) <> " "
           j%=VAL(LEFT$(art$,2)): m%=VAL(MID$(art$,4,2)): a%=VAL(MID$(art$,7,4))
           DateSerial(m%)
           IF ds% < (dsj%-nj%)
              art$ = RIGHT_POS$(art$,37)
              FILE_DELETE rep$+art$
              ns% = ns%+1: ' nombre de fichiers supprimés
           END_IF
       END_IF
    NEXT i%
    if ns% = 0
       message "Tâche terminée"+chr$(13)+"Aucun message ne répond à votre demande !!!"
       exit_sub
    end_if
    message clipboard_string_paste$+STR$(ns%)+" fichiers supprimés"
    DELETE mm%
END_SUB
rem ============================================================================
' Date série en fonction de Annee, Mois, Jour -> ds%
SUB DateSerial(m%)

    SELECT m%
        CASE 1: ds_res = 0
        CASE 2: ds_res = 31
        CASE 3: ds_res = 59
        CASE 4: ds_res = 90
        CASE 5: ds_res = 120
        CASE 6: ds_res = 151
        CASE 7: ds_res = 181
        CASE 8: ds_res = 212
        CASE 9: ds_res = 243
        CASE 10: ds_res = 273
        CASE 11: ds_res = 304
        CASE 12: ds_res = 334
    END_SELECT
    ds_res = ds_res + j% - 1
    IF (FRAC(a%/4)=0 AND FRAC(a%/100)>0) OR FRAC(a%/400)=0: ' bissextile
       IF m% > 2 THEN ds_res = ds_res + 1
    END_IF
    REPEAT
        a% = a%-1: ds_bi = 0
        IF (FRAC(a%/4)=0 AND FRAC(a%/100)>0) OR FRAC(a%/400)=0 THEN ds_bi=1
        ds_res = ds_res + 365 + ds_bi
    UNTIL a% <= 1753
    ds% = ds_res-53688: ' date serial

END_SUB
rem ============================================================================

    if upper$(right$(suf$,3)) <> "BAK"
       t$ = "Vous êtes bourré ou quoi !"+chr$(13)
       t$ = t$ + "Moi, je suis prudent : je ne supprime que les .bak"+chr$(13)
       t$ = t$ + " JE REFUSE DE VOUS OBEIR MAITRE !!!!"
       message t$ : exit_sub
    end_if