フォルダの中にあるファイルとその更新日時の取得

解決

ようこ 2004-09-10 22:31:31 No: 85498

いつもおせわになってます。

あるフォルダの中にファイルが複数入っていて、そのフォルダの中で。
指定した更新日時以前のファイルを削除したいと思ってます。

この場合フォルダの中のファイルを上から順番に認識させて、
指定した更新日時と照らし合わせて kill でよいのでしょうか？

またそうだとしたら、フォルダの中のファイル番号（でいいのかな？）
と更新日時は、どのように取得すればよいのでしょうか？

ご指導よろしくお願いいたします。

nanashi 2004-09-10 23:36:01 No: 85499

Dir関数でフォルダ内の全ファイルを、
FileDateTime関数で更新日時を取得出来ます。

もしくはFileSystemObjectを使って下さい。

ようこ 2004-09-11 05:46:37 No: 85500

nanashiさんのアドバイスとこのサイトの過去ログを参考に
解決できました。
ありがとうございました。

Private Sub Command1_Click()

    Dim strTargetDir As String
    Dim strDirItem As String
    strTargetDir = "ディレクトリ名"
    strDirItem = Dir(strTargetDir)

Do While strDirItem <> "" 'ファイル名が空白になるまでループ

      If FileTimeDate(strTarget&strDirItem) > 指定の日時  Then
        Kill (strTarget&strDirItem)
      End If

strDirItem = Dir
Loop

End Sub