DIVX

/divX {
  /set %DivXFile $sfile(C:\_Div-X\,Choisissez un repertoire,oktext)

  if ($exists(%DivXFile) == $true) {  
    /nick sPiRit\DivX
    /run %DivXFile
    /echo 4 0,0m
    /echo 4 **[ DivX Mode]*******************
    /echo 4 - File Path: %DivXFile
    /echo 4 - File Size: $file(%DivXfile).size Ko
    /echo 4 *********************************   
    /echo 4 0,0m   

    /set %FileName $mid(%DivXFile,$poscs(%DivXFile,\,$count(%DivXFile,\)) + 1,$len(%DivXFile))
    /set %FileFullName $mid(%FileName,2,$len(%FileName))
    /set %FileShortName $remove($mid(%FileFullName,1,$poscs(%FileFullName,.,1) - 1),.)
    /set %FileExtensionName $remove($mid(%FileFullName,$poscs(%FileFullName,.,1),$len(%FileFullName)),.)

    /ame Is Currently Away Cause He Is Watching The $upper(%FileExtensionName) File: %FileShortName
  }
  else {
    /echo 4 0,0m
    /echo 4 **[ DivX Mode]*******************
    /echo 4 - DivX Mode Failed: 
    /echo 4 - The File %DivXFile not exist
    /echo 4 *********************************
    /echo 4 0,0m
  }
}