On Jun 30, 2004, at 8:02 AM, Phil Heycock wrote:
Sub Action()
Dim file As FolderItem
Dim fileStream as BinaryStream
file = GetSaveFolderItem("","My Info")
If file <> Nil then
fileStream = file.CreateBinaryFile("text/plain")
fileStream.WriteByte ascB("a")
fileStream.WriteShort 8
fileStream.WriteLong 16
fileStream.WriteBoolean true
fileStream.Close
end if
End Sub
Ran this code.
Examined file in hex Edit
I get
1 byte
2 bytes
4 bytes
1 byte
_______________________________________________
Unsubscribe or switch delivery mode:
<http://support.realsoftware.com/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
|