dim TracePath

Set fso = CreateObject("Scripting.FileSystemObject")  
Set folder = fso.GetFolder(Left(TracePath,len(TracePath)-1))  
Set files = folder.Files  

i=0
 For each fileIdx In files
  Redim Preserve allFiles(i)
  Redim Preserve allTimeStamps(i)
  allFiles(i)=fileIdx.Name
  allTimeStamps(i)=fileIdx.DateLastModified
  i=i+1
 Next

'Now sort as per Modified TimeStamp
 for i =  lbound(allTimeStamps) to ubound(allTimeStamps)
  for j =  lbound(allTimeStamps) to ubound(allTimeStamps)
   if allTimeStamps(i)<allTimeStamps(j) then
    tt=allTimeStamps(i)
    allTimeStamps(i)=allTimeStamps(j)
    allTimeStamps(j)=tt
    tt=allFiles(i)
    allFiles(i)=allFiles(j)
    allFiles(j)=tt
   end if 
  next
 next

for i =  lbound(allFiles) to ubound(allFiles) -1 ' -1 so that we leave the latest file
	' here you write Code to zip the file
             ' code to move the zipped file
Next

 

$SourceFileSpecification_STR="L:\MSSQL10.instance_name\MSSQL\DATA\audittrace*.trc"
$DestinationZipFileSpecification_STR="my.zip"

get-childitem $SourceFileSpecification_STR | Where {$_.LastWriteTime -le "$LastWrite_DTE"}
$File_NMEs = get-childitem $SourceFileSpecification_STR | Where {$_.LastWriteTime -le "$LastWrite_DTE"}

<###############################################################
#
# Create empty .zip file
#
############################################+##################>

set-content $DestinationZipFileSpecification_STR ("PK" + [char]5 + [char]6 + ("$([char]0)" * 18))

(dir $DestinationZipFileSpecification_STR).IsReadOnly = $false

<###############################################################
#
# Zip and delete the files
#
############################################+##################>

$ShellApplication = new-object -com shell.application
$ZipPackage = $ShellApplication.NameSpace($DestinationZipFileSpecification_STR)

foreach ($File in $File_NMEs)
{
	<###############################################################
	#
	# Display file information
	#
	############################################+##################>

	write-host "Current file: $File; Length=$File.Length"

	dir $File

	<###############################################################
	#
	# Compress the file
	#
	############################################+##################>

	$PotentialFailureReason_DSC = "Error compressing $File"

	$ZipPackage.CopyHere($File.FullName)
	if (!$?) {job_failure}

	Start-sleep -milliseconds 9000

	<###############################################################
	#
	# Delete the original file--note that open files will fail on
	# the delete, which is what you want it to do
	#
	############################################+##################>

	del $file
#	if (!$?) {job_failure}
}