Code

Function UDFGetDateTimeSize (vPath as String, vFile as String ) as String
var aa as string
var n as Int
var vLoop as Int
var vLine as String
var vFileInfoLine as String
var vResult as String


aa = @RedirectProcess("cmd /c Dir " + vPath + vFile, "")

//aa = @RedirectProcess ("cmd /c Dir C\Sesame2\Sesame.ini", " ")

//vResult = @RedirectProcess("cmd /c DIR", "")
	//WriteLn(vResult)

//WriteLN (aa)

aa = @Replace (aa, @NL ( ), ";" )
n = @CountStringArray (aa)

For vLoop = 1 to n
vLine = @AccessStringArray (aa, vLoop)
If @In (vLIne, vFile) > 0 then
	{
		vFileInfoLine = @AccessStringArray (aa, vLoop)
		vLoop = n

	}

Next

Return (vFileInfoLine)

End Function



var vFileInfo as String
var vDate as String
var vTime as String
var vSize as String




vFileInfo = UDFGetDateTimeSize ("C:\Sesame2\", "Sesame.ini")


While @In (vFileInfo, "  ") > 1
	{
		vFileInfo = @Replace (vFileInfo, "  ", " ")
	}


WriteLn (vFileInfo)

vFileInfo = @Replace (vFileInfo, " ", ";")

vDate = @AccessStringArray (vFileInfo, 1)

WriteLN ("Date File Created = " + vDate)


vTime = @AccessStringArray (vFileInfo, 2) + " " + @AccessStringArray (vFileinfo, 3)

WriteLN ("Time File Created = " + vTime)


vSize = @AccessStringArray (vFileinfo, 4)

WriteLN ("Size of the file = " + vSize)


 

Code

function imaginary() as double
var imagine as double

   imagine = @sqrt(-1)
   return imagine
end function