Private Sub cmdCheck_Click(index As Integer)
Dim oSubFolder As Folder
Screen.MousePointer = vbHourglass
' Get RootFolder of selected lstDirves
Set oSubFolder = oFs.Drives.Item(Left(lstDrives, 1)).RootFolder
lstFiles2.Clear
CheckFolders oSubFolder, index
Screen.MousePointer = vbNormal
End Sub
Private Sub CheckFolders(oFolder As Folder, index As Integer)
Dim oSubFolder As Folder
CheckFolderFiles oFolder, index
For Each oSubFolder In oFolder.SubFolders
CheckFolders oSubFolder, index
Next
End Sub
Private Sub CheckFolderFiles(oFolder As Folder, index As Integer)
Dim oFile As File
Dim vDate As Date
Dim i As Integer
' Check DataXXXXX
For i = 0 To 2
If optDate(i).Value = True Then
Exit For
End If
Next i
Select Case index
Case 0 ' Check Folder 正常動作せず
' Select Case i
' Case 0 ' Create
' If DateDiff("d", oFolder.DateCreated, Now) <= Val(txtDay.Text) Then
' lstFiles2.AddItem oFolder.Path & vbTab & oFolder.DateCreated
' End If
' Case 1 ' Access
' If DateDiff("d", oFolder.DateLastAccessed, Now) <= Val(txtDay.Text) Then
' lstFiles2.AddItem oFolder.Path & vbTab & oFolder.DateLastAccessed
' End If
' Case 2 ' Modify
' If DateDiff("d", oFolder.DateLastModified, Now) <= Val(txtDay.Text) Then
' lstFiles2.AddItem oFolder.Path & vbTab & oFolder.DateLastModified
' End If
' End Select
Case 1 ' Check File
For Each oFile In oFolder.Files
Select Case i
Case 0 ' Create
If DateDiff("d", oFile.DateCreated, Now) <= Val(txtDay.Text) Then
lstFiles2.AddItem oFile.Path & vbTab & oFile.DateCreated
End If
Case 1 ' Access
If DateDiff("d", oFile.DateLastAccessed, Now) <= Val(txtDay.Text) Then
lstFiles2.AddItem oFile.Path & vbTab & oFile.DateLastAccessed
End If
Case 2 ' Modify
If DateDiff("d", oFile.DateLastModified, Now) <= Val(txtDay.Text) Then
lstFiles2.AddItem oFile.Path & vbTab & oFile.DateLastModified
End If
End Select
Next
End Select
End Sub
|