複数ファイルすべてを削除

質問

OS:windows2000pro
VB:VB6.0sp5

C:\work フォルダ内に多数のファイルが存在します
　その中から、作成日時が
　 2005/03/28(任意：画面にて入力)
　の複数ファイルすべてを削除する
方法をご教示くださいます様よろしくお願いいたします

補足：時刻は関係無しでお願いいたします

回答No.2

stouma · ベストアンサー

ファイル作成日がUserDateであるものを
UserDirフォルダの中から削除する

'UserDate:作成日時(Ex:2005/03/28)
'UserDir :該当フォルダ(Ex:C:\work)

Function DeleteJOB(UserDate As Date, UserDir As String)

　　Dim objFS　　　 As Object
　　Dim objF　　　　As Object
　　Dim strFileName As String
　　Dim blmDelFrg　 As Boolean

　　If Dir(UserDir, vbDirectory) = "" Then Exit Function

　　UserDir = IIf(Right(UserDir, 1) = "\", UserDir, UserDir & "\")
　　Set objFS = CreateObject("Scripting.FileSystemObject")

　　strFileName = Dir(UserDir & "*")
　　Do While strFileName <> ""
　　　　strFileName = UserDir & strFileName
　　　　Set objF = objFS.GetFile(strFileName)

　　　　blmDelFrg = False
　　　　If DateDiff("d", UserDate, objF.DateCreated) = 0 Then
　　　　　　blmDelFrg = True
　　　　End If

　　　　Set objF = Nothing
　　　　DoEvents

　　　　If blmDelFrg = True Then objFS.DeleteFile strFileName

　　　　strFileName = Dir
　　Loop
　　Set objFS = Nothing
End Function

こんなんでいいでしょうか？
尚、削除系なので試す時は慎重に。
objFS.DeleteFile strFileNameをDebug.Print strFileName
とでもして確認してみてください。

回答No.1

popesyu

具体的に分からないというのはどの辺の部分なのでしょう。
例えばFileSystemObjectでも使って、ファイルを一つ一つタイムスタンプで参照しながら該当日時のものをデリートという手法そのものなのか、部分部分のコードなのか。