code:

---

 ;FUNCTION      CleanTempFiles
;
;AUTHOR        Jens Meyer (sealeopard@usa.net)
;
;VERSION       1.1
;
;ACTION        Cleans up the temporary directory
;
;SYNTAX        CLEANTEMPFILES(ACTION,DIRECTORY,Optional DESTINATION,FILTER,DAYS)
;
;PARAMETERS    ACTION
;	       Required switch that controls the action of the UDF
;              1-Deletes files
;	       2-Moves files
;
;	       DIRECTORY
;              Required string/array containing the directory(s) to be cleaned\
;
;	       DESTINATION
;	       OPTIONAL String containing the directory to which files will be moved              
;
;              FILTER
;              Required string/array containing file filters for deletables files/folders, wildcards are supported
;
;              DAYS
;              Required integer indicating how old a file must be before it is deleted
;
;REMARKS       The function will recursively delete all empty subdirectories and files
;              Requires the global variable $VERBOSE (true for verbose output)
;
;DEPENDENCIES  FULLFILE()    @ http://kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_topic&f=12&t=000028
;              DATEMATH()    @ http://kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_topic&f=12&t=000102
;              DISPLAYTEXT() @ http://kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_topic&f=12&t=000036
;
;RETURNS       0 if successful, otherwise error code
;	       1000 If invalid action defined
;	       1001 If destination does not exist
;
;
;EXAMPLE       $retcode=cleantempfiles('c:\temp','*.TMP',7)
;
;KIXTART BBS   http://kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_topic&f=12&t=000103
;
CALL @ScriptDir\udf\DateMath.udf
CALL @ScriptDir\udf\DisplayText.udf
CALL @ScriptDir\udf\FullFile.udf
function cleantempfiles($action, $directories, optional $destination, $filter, $olderas)
  Dim $retcode, $filetime, $timediff, $filename, $filefilter, $tempdir

if $action=2
	if exist ($destination)=0
	?"CHECK"
	@ERROR=1001
	goto ERCOND
	endif
endif
  $olderas=val($olderas)
  if $olderas<0
    $olderas=0
  endif

  if vartype($directories)<8192
    dim $tmp[0]
    $tmp[0]=$directories
    $directories=$tmp
  endif
  if vartype($filter)<8192
    dim $tmp[0]
    $tmp[0]=$filter
    $filter=$tmp
  endif

  for each $tempdir in $directories
    if $tempdir<>'' and exist($tempdir)
      for each $filefilter in $filter
        if $VERBOSE
          $retcode=displaytext('Filtering '+$tempdir+' for '+$filefilter)
        endif
        $filefilter=fullfile($tempdir,$filefilter)
        $filename=dir($filefilter,1)
        While $filename<>'' and @ERROR = 0
          if $filename<>'.' and $filename<>'..'
            $filename=fullfile($tempdir,$filename)
            if exist($filename)
              $filetime=left(getfiletime($filename),10)
              $timediff=datemath(@DATE,$filetime)
              if $VERBOSE
                $retcode=displaytext('File '+$filename+' dated '+$filetime+' is '+$timediff+' days old')
              endif
              if $timediff>$olderas
                if getfileattr($filename) & 16
                  $retcode=cleantempfiles($filename,$olderas)
                  $retcode=setfileattr($filename,128)
		  select
                	case $action = 1
			;rd $filename
			?"Removing directory: "+$filename
        	          if $VERBOSE
                	    $retcode=displaytext('Deleting obsolete directory '+$filename)
                  	  endif
			case $action = 2
			?"Moving directory: "+$filename
			  if $VERBOSE
                	    $retcode=displaytext('Moving obsolete directory '+$filename)
                  	  endif
			case 1
				@ERROR=1000
				GOTO ERCOND
		  endselect

                  if $VERBOSE
                    $retcode=displaytext('Deleting obsolete directory '+$filename)
                  endif
                else
                  $retcode=setfileattr($filename,128)
		  select
                	case $action = 1
			;del $filename
			?"Removing file: "+$filename
        	          if $VERBOSE
                	    $retcode=displaytext('Deleting obsolete file '+$filename)
                  	  endif
			case $action = 2
			;copy "$filename", "$Destination"
			?"Moving file: "+$filename
			  if $VERBOSE
                	    $retcode=displaytext('Moving obsolete file '+$filename)
                  	  endif
			case 1
				@ERROR=1000
				GOTO ERCOND

		 endselect
                endif
              endif
            endif
          endif
          $filename=Dir('',1)
        loop
      next
    endif
  next
:ERCOND
  $cleantempfiles=@ERROR
endfunction
 

---

code:

---

$=createobject("shell.application")
$.namespace("C:\Documents and Settings\Lonkero\Työpöytä\KiXforms\BBCodeParser_2").self.modifydate

---

code:

---

$fso = CreateObject("Scripting.FileSystemObject")
$f = $fso.GetFolder(C:\Archive)
"Created: " + $f.DateCreated

---

code:

---

$folder="C:\Documents and Settings\lonkero\Työpöytä\KiXforms"
$ = CreateObject("Scripting.FileSystemObject")
$.getfolder($folder).datelastmodified

---