FolderItem.ModifyDate(Eigenschaft)
Legt für eine Datei das Datum und die Uhrzeit der letzten Änderung fest oder ruft sie ab. Für einen Ordner ruft das Datum und die Uhrzeit der letzten Änderung eines Ordners ab, kann ihn jedoch nicht festlegen.
Dies ist eine Eigenschaft mit Lese- und Schreibzugriff.
Syntax
iModifyDate = FolderItem.ModifyDate
FolderItem.ModifyDate = iModifyDate
Eigenschaftswert
Datum, das das Datum und die Uhrzeit der letzten Änderung des Elements angibt oder empfängt.
Beispiele
Im folgenden Beispiel wird ModifyDate verwendet, um das Datum der letzten Änderung von Editor und dann auf einen sehr langen Zeitraum zurückzusetzen. Die richtige Verwendung wird für JScript, VBScript und Visual Basic.
JScript:
<script language="JScript">
function fnModifyDateGetSetJ()
{
var objShell = new ActiveXObject("shell.application");
var objFolder2;
var ssfWINDOWS = 36;
objFolder2 = objShell.NameSpace(ssfWINDOWS);
if (objFolder2 != null)
{
var objFolderItem;
objFolderItem = objFolder2.ParseName("NOTEPAD.EXE");
if (objFolderItem != null)
{
var szReturn;
szReturn = objFolderItem.ModifyDate;
objFolderItem.ModifyDate = "01/01/1900 6:05:00 PM";
}
}
}
</script>
Vbscript:
<script language="VBScript">
function fnModifyDateGetSetVB()
dim objShell
set objShell = CreateObject("shell.application")
if (not objShell is nothing) then
dim objFolder2
dim ssfWINDOWS
ssfWINDOWS = 36
set objFolder2 = objShell.NameSpace(ssfWINDOWS)
if (not objFolder2 is nothing) then
dim objFolderItem
set objFolderItem = objFolder2.ParseName("NOTEPAD.EXE")
if (not objFolderItem is nothing) then
dim szReturn
szReturn = objFolderItem.ModifyDate
objFolderItem.ModifyDate = "01/01/1900 6:05:00 PM"
end if
set objFolderItem = nothing
end if
set objFolder2 = nothing
end if
set objShell = nothing
end function
</script>
Visual Basic:
Private Sub fnModifyDateGetSetVB()
Dim objShell As Shell
Dim objFolder2 As Folder2
Dim ssfWINDOWS As Long
ssfWINDOWS = 36
Set objShell = New Shell
Set objFolder2 = objShell.NameSpace(ssfWINDOWS)
If (Not objFolder2 Is Nothing) Then
Dim objFolderItem As FolderItem
Set objFolderItem = objFolder2.ParseName("NOTEPAD.EXE")
If (Not objFolderItem Is Nothing) Then
Dim szReturn As String
szReturn = objFolderItem.ModifyDate
objFolderItem.ModifyDate = "01/01/1900 6:05:00 PM"
Else
'FolderItem object returned nothing.
End If
Set objFolderItem = Nothing
Else
'Folder object returned nothing.
End If
Set objFolder2 = Nothing
Set objShell = Nothing
End Sub
Requirements (Anforderungen)
| Anforderung | Wert |
|---|---|
| Unterstützte Mindestversion (Client) |
Windows 2000 Professional, Windows [ XP-Desktop-Apps] |
| Unterstützte Mindestversion (Server) |
Windows 2000 Server [nur Desktop-Apps] |
| Header |
|
| IDL |
|
| DLL |
|