copy "c:\Program Files\VRL\Dep1\*.wav" "c:\wav\" + @year + right('0' + @monthno,2) + right('0' + @mdayno,2) + "\"  /s

Function Replace($String,$SS,$RS)	
	$Replace=Join(Split($String,$SS),$RS)
EndFunction

function GetExtFileProperties($FQFN, $attribute)
  dim $objShell, $objFolder,$i,$found
  if exist($FQFN)
    $objShell=CreateObject("Shell.Application")
    $objFolder=$objShell.Namespace(left($FQFN,instrrev($FQFN,"\")))
    if $objFolder
      if vartypename($attribute)="string"
        While $i<267 and $found=0
          if $attribute=$objFolder.GetDetailsOf($objFolder.Items, $i)
            $attribute=$i
            $found=1
          endif
          $i=$i+1
        loop
      endif 
      if vartypename($attribute)="long" ; Number 
        

$GetExtFileProperties=$objFolder.GetDetailsOf($objFolder.ParseName(right($FQFN,len($FQFN)-instrrev($FQFN,"\"))),$att

ribute)
      else
        exit -1 
      endif
    else
      exit @error
    endif
  else
    exit 2
  endif
endfunction

$ShortPath = "D:\Music\"
$Path = "D:\Music\*.mp3"
$outputpath = "C:\OUtput\"

$FileName = Dir($path)
While $FileName <> "" and @ERROR = 0

 $DateCreated = GetExtFileProperties($ShortPath + $FileName, "Date Created")
 $TrimmedDate = LEFT($DateCreated, 10)
 $TrimmedDateWithoutSlashes = Replace($TrimmedDate ,"/", "")

 ;Next Step... Create Folder
 
If NOT Exist ($ShortPath + $TrimmedDateWithoutSlashes) 

MD "$$outputpath" + "$TrimmedDateWithoutSlashes"

Else
Copy "$Path\$FileName" "$outputpath\$TrimmedDateWithoutSlashes"


 $FileName = Dir() ; retrieve next file
Loop

;Script Options
Break On
Dim $RC
$RC = SetOption('Explicit','On')
$RC = SetOption('NoVarsInStrings','On')
$RC = SetOption('NoMacrosInStrings','On')

;Declare Variables
Dim $Directory, $DirInfo, $DirItem

;Initialize Variables
$Directory = 'C:\Script'

;Code
;'/A-D' only searches for files
$DirInfo = DirPlus($Directory,'/A-D')
For Each $DirItem in $DirInfo
	'1. ' $DirItem.Path ?
	'2. ' $DirItem.Name ?
	'3. ' $DirItem.Drive ?
	'4. ' $DirItem.Type ?
	'5. ' $DirItem.DateCreated ?
	'6. ' $DirItem.DateLastAccessed ?
	'7. ' $DirItem.DateLastModified ?
	'8. ' $DirItem.Size ?
	?
Next

;If needed, Get $RC fakes a kind of pause
;so you get time to read the result window
Get $RC

$DirItem = ''
$DirInfo = ''

;UDF
;Paste here the DIRPlus UDF
;http://www.kixtart.org/forums/ubbthreads.php?ubb=showflat&Number=82153