Imports System.Security.Principal
Imports System.Security.Permissions
Imports System.IO
publicclass MainClass
Shared Sub Main()
Dim oFp As FileIOPermission = New _
FileIOPermission(FileIOPermissionAccess.Write, "d:\test.txt")
oFp.Assert()
Try
Dim objWriter As New IO.StreamWriter(File.Open("d:\test.txt", IO.FileMode.Open))
objWriter.WriteLine("Hi there!")
objWriter.Flush()
objWriter.Close()
objWriter = Nothing
Catch objA As System.Exception
Console.WriteLine(objA.Message)
End Try
End Sub
End Class