Discussion :

[l_achraf]

bonjour tout le monde,
jai un dossier qui contient des fichiers excel et je veux supprimer les fichiers dont leur date de creation depasse 30 jours.
Malheureusement ca marche pas, soi que je suis debutant en VB.net ou jai mal defini les fonctions concernant ce script.
je vous passe mon code et essayez svp de maider a m'ensortir.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
'Declaration des variables
        Dim date_actuelle As Date
        Dim date_fichier As Date
        Dim delai As Long
        Dim chemin As String
        Dim app As Excel.Application
        Dim wbExcel As Excel.Workbook 'Classeur Excel
        Dim wsExcel As Excel.Worksheet 'Feuille Excel
 
        'Adapter le chemin du répertoire
        'chemin = "Phvdb1 \ d$ \ WWWroot \ po"
        chemin = "C:\Documents and Settings\achrlamz\Bureau\test"
 
        app = CreateObject("excel.application")
        wbExcel = app.Workbooks.Open(chemin)
        wsExcel = wbExcel.Worksheets(1)
 
        'Recuperation de la date actuelle
        date_actuelle = DateTime.Now.ToString
 
        'Recuperation de la date de creation des fichiers
        date_fichier = FileDateTime(chemin & "*.xls")
 
        'comparaison des deux dates
        delai = DateDiff("d", date_actuelle, date_fichier)
        If (delai) > 30 Then
            wsExcel.Delete()
        End If
        wsExcel = Nothing
        wbExcel = Nothing
        app.Quit()
 
 
    End Sub

merci beaucoup d'avance


merci beaucoup mon frere, grace a ton code jai pu regler mon probleme

[yroubag]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11

Dim fichiers() As IO.FileInfo
Dim fichier As IO.FileInfo
Dim dir AsNew IO.DirectoryInfo("C:\...")
fichiers = dir.GetFiles("*.xls")
ForEach fichier In fichiers
If fichier.CreationTime.AddDays(30) < Now Then
fichier.Delete()
EndIf
Next