Forums Scripts & Popups date created

$file(file).ctime

alias folderdate {
  if !$exists($$1\) { echo -ac info $!folderdate - no such folder $1 | return }
  var %a = a $+ $ticks, %b = b $+ %a
  .comopen %a Scripting.FileSystemObject
  if !$comerr {
    .comclose %a $com(%a,GetFolder,1,bstr,$1\,dispatch* %b)
    if $com(%b,DateCreated,3) {
      %a = $com(%b).result
      .comclose %b
      return $int($calc(((%a -25569)*86400)+$timezone))
    }
  }
}