VB6

Question

でのx歳以上のファイルを削除して、私は私がx年

ノートよりも古いファイルを削除する方法を知りたい：私の日付は、私は、これは何の問題か

これを引き起こすことができるかどうか知らないmydate(yyyy/mm/dd)ですこれまでの私のコードです：

Dim fso As Variant 
Dim directory As Variant 
Dim modified As Variant 
Dim files As Variant 

Private Sub Command1_Click() 

    Set fso = CreateObject(“Scripting.FileSystemObject”) 
    Set directory = fso.GetFolder(App.Path & "\log") 
    Set files = directory.files 

    For Each modified In files 

    If DateDiff("Y", modified.DateLastModified, Now) > mydate Then 

     modified.Delete 

    Next 

End Sub 

私は人生で初めてDateDiffを使用していますので、間違っているところを説明してください。

Answer 1

DateDiffは、2つの日付の差を返します。あなたは現在の日付とファイルが最後に修正された日付との間の差異を得るのにそれを使用していますが、これを日付変数と比較しています（myDateの定義は含まれていません）。

If DateDiff("Y", modified.DateLastModified, Now) > x Then 
    modified.Delete 
End If 

X は整数（例えば2歳以上のファイルのための）である

：あなたはより多くのようなものが必要。