• Procedure.s ConvertSize(filesize.d, decimal.l = 1)
• ; ROUTINE DE CONVERSION DE LA TAILLE FICHIER.
• Protected i.l = 1
• Protected j.s = "o,Ko,Mo,Go,To"
• Protected k.l = CountString(j, ",")
• While filesize >= 1024 AND i <= k
• filesize / 1024
• i + 1
• Wend
• Protected sres.s = StrF(filesize, decimal)
• Protected sent.s = StringField(sres, 1, ".")
• Protected sdec.s = StringField(sres, 2, ".")
• If i = 1
• ProcedureReturn sent + " o"
• Else
• If Val(sdec) = 0
• ProcedureReturn sent + " " + StringField(j, i, ",")
• Else
• ProcedureReturn sres + " " + StringField(j, i, ",")
• EndIf
• EndIf
• EndProcedure
• ; EXEMPLE :
• Debug ConvertSize(100000)