FolderItem.ModifyDate与DateLastModified的区别？？？？？

ning84

FolderItem.ModifyDate 属性
对于文件，设置或获取上次修改文件的日期和时间。 对于文件夹， 检索上次修改文件夹的日期和时间，但无法设置该日期和时间。

此属性是可读写的。



https://learn.microsoft.com/zh-c ... lderitem-modifydate



FolderItem.ModifyDate 属性 (Shldisp.h) - Win32 apps | Microsoft Learn  https://learn.microsoft.com/zh-c ... lderitem-modifydate

1. 
   
2. ''''
   
3. Private Sub fnModifyDateGetSetVB()
   
4.     Dim objShell   As Shell
   
5.     Dim objFolder2 As Folder2
   
6.     Dim ssfWINDOWS As Long
   
7.    
   
8.     ssfWINDOWS = 36
   
9.     Set objShell = New Shell
   
10.     Set objFolder2 = objShell.Namespace("F:")
    
11.         If (Not objFolder2 Is Nothing) Then
    
12.             Dim objFolderItem As FolderItem
    
13.             
    
14.             Set objFolderItem = objFolder2.ParseName("1.jpg")
    
15.                 If (Not objFolderItem Is Nothing) Then
    
16.                     Dim szReturn As String
    
17.                     
    
18.                     szReturn = objFolderItem.ModifyDate
    
19.                     objFolderItem.ModifyDate = "2024/4/13 2:39:22" '"01/01/1900 6:05:00 PM"
    
20.                 Else
    
21.                     'FolderItem object returned nothing.
    
22.                 End If
    
23.             Set objFolderItem = Nothing
    
24.         Else
    
25.             'Folder object returned nothing.
    
26.         End If
    
27.     Set objFolder2 = Nothing
    
28.     Set objShell = Nothing
    
29. End Sub
    

复制代码

DateLastModified 属性 (Visual Basic for Applications) | Microsoft Learn  https://learn.microsoft.com/zh-c ... stmodified-property

1. Private Sub deldel()
   
2.     Dim Fso As FileSystemObject
   
3.         Set Fso = New FileSystemObject
   
4.     Dim oFile As File
   
5.         Set oFile = Fso.GetFile("F:\1.jpg")
   
6.         With oFile
   
7.              Debug.Print .DateCreated, .DateLastAccessed, .DateLastModified
   
8.         End With
   
9.         Stop
   
10.     Dim Img As ImageFile
    
11.         Set Img = New ImageFile
    
12.         Img.LoadFile oFile.Path
    
13.         With Img
    
14.              Stop
    
15.              For ii = 1 To .Properties.Count
    
16.                   Debug.Print ii, .Properties.Item(ii).Name, .Properties.Item(ii).Type
    
17.              Next ii
    
18.              Stop
    
19.         End With
    
20. End Sub
    

复制代码