Private Sub OpenOutputNonBuffered (Dir As String, FileName As String, Append As Boolean) As OutputStream
Dim f As JavaObject
f.InitializeNewInstance("java.io.File", Array(Dir, FileName))
Dim out As JavaObject
out.InitializeNewInstance("java.io.FileOutputStream", Array(f, Append))
Return out
End Sub
Private Sub OpenInputNonBuffered (Dir As String, FileName As String) As InputStream
Dim f As JavaObject
f.InitializeNewInstance("java.io.File", Array(Dir, FileName))
Dim in As JavaObject
in.InitializeNewInstance("java.io.FileInputStream", Array(f))
Return in
End Sub