[code]option explicit
' Modified and Created
' 球球
'
' This is a script for Directory Opus.
' See http://www.gpsoft.com.au/DScripts/redirect.asp?page=scripts for development information.
'
'
'
' Called by Directory Opus to initialize the script
Function OnInit(initData)
DOpus.Output ("Add Modified and Created Column Initializing...")
initData.name = "Modified and Created Column"
initData.desc = "Add Modified and Created Column."
initData.copyright = "球球"
initData.version = "0.1"
initData.default_enable = false
initData.config.Item_MinuteText = " 分钟前"
initData.config.Item_HourText = " 小时前"
initData.config.Item_DayText = " 天 前"
initData.config.Item_MonthText = " 个月前"
initData.config.Item_YearText = " 年 前"
initData.config.Column_CreateHeader = "创建于"
initData.config.Column_ModifyHeader = "修改于"
Dim col
Set col = initData.AddColumn
col.name = "Created"
col.method = "OnCreated"
col.label = "Created"
col.justify = "Right"
col.Header = initData.config.Column_CreateHeader
col.autogroup = true
col.autorefresh = true
Set col = initData.AddColumn
col.name = "Modified"
col.method = "OnModified"
col.label = "Modified"
col.Header = initData.config.Column_ModifyHeader
col.justify = "Right"
col.autogroup = true
col.autorefresh = true
End Function
Function OnScriptConfigChange(configChangeData)
'how to Refresh Columns Header
End Function
' Implement the Created column
Function OnCreated(scriptColData)
GetInterval(scriptColData)
End Function
' Implement the Modified column
Function OnModified(scriptColData)
GetInterval(scriptColData)
End Function
Function GetInterval(scriptColData)
dim mYear, mMonth, mDay, mWeek, mHour, mMinute
mYear = DateDiff("yyyy",scriptColData.item.modify, Now())
mMonth = DateDiff("m",scriptColData.item.modify, Now())
mDay = DateDiff("d",scriptColData.item.modify, Now())
mHour = DateDiff("h",scriptColData.item.modify, Now())
mMinute = DateDiff("n",scriptColData.item.modify, Now())
If mMinute < 60 then
scriptColData.value = mMinute & Script.config.Item_MinuteText
scriptColData.sort = 1
ElseIf mMinute >= 60 and mHour < 24 then
scriptColData.value = mHour & Script.config.Item_HourText
scriptColData.sort = 2
Elseif mDay <= abs(DateDiff("d",Now(),Dateadd("m",-1,Now()))) then
scriptColData.value = mDay & Script.config.Item_DayText
scriptColData.sort = 3
ElseIf mDay > abs(DateDiff("d",now(),Dateadd("m",-1,now()))) and mDay < abs(DateDiff("d",now(),Dateadd("yyyy",-1,now()))) Then
scriptColData.value = mMonth & Script.config.Item_MonthText
scriptColData.sort = 4
ElseIf mDay >= abs(DateDiff("d",now(),Dateadd("yyyy",-1,now()))) Then
scriptColData.value = mYear & Script.config.Item_YearText
scriptColData.sort = 5
End If
End Function[/code]