{NeoBook Function}
Version=5,60
Language=NeoBook
Param=[%ruta_file]|FileName|Param1
{End}
FileExists "[%ruta_file]" "[com_ex]"
If "[com_ex]" "=" "true"
ExtractFilePath "[%ruta_file]" "[Ruta_final_r]"
ExtractFileDrive "[%ruta_file]" "[Unidad_final_r]"
ExtractFileExt "[%ruta_file]" "[extension_final_r]"
ExtractFileName "[%ruta_file]" "[tmp1]"
SearchStr "[extension_final_r]" "[tmp1]" "[tmp2]" ""
StrLen "[tmp1]" "[l_tmp1]"
StrDel "[tmp1]" "[tmp2]" "[l_tmp1]" "[Nombre_final_r]"
.FileSize "[%ruta_file]" "[tamaoBYTES_final_r]"
Call "FunctionLibrary_josevdr95\neo_calc_file_size" "[%ruta_file]"
ClearVariables "[com_ex]"
ClearVariables "[tmp1]"
ClearVariables "[tmp2]"
ClearVariables "[l_tmp1]"
Else
EndIf
