フォルダの中にあるファイルとその更新日時の取得 (ID:85500)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 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