How to modify this code to make my StreamWriter file READ ONLY

[piscis]

Does anyone have a clue as to how to modify the code below so the file is saved to the Hard Disk with the “Read Only” attribute.

 ' This Sub uses a StreamWriter object to create a .txt file 
    'With Text coming out of the Serial port. The name of the file
    'is composed of the Machine Serial#, Date and Time String (time ‘includes seconds)

    Sub SerialCopyWriter()

        Dim myStreamWriter As StreamWriter
        Dim myPath As String = "..\Readings Backup\"
        Dim myMachine As Integer = 3035
        Dim myName As String = myMachine & "+" & Now.Month & "_" & Now.Day & "_" _
        & Now.Year.ToString & "+" & Now.Hour & "_" & Now.Minute & "_" & Now.Second & ".txt"
        Dim myFileName As String = myPath + myName

        'Resulting file name 3035+8_2_2003+7_38_41

        Try
            ' Create the StreamWriter
            myStreamWriter = File.CreateText(myFileName)
            myStreamWriter.Write(txtFileText.Text)
            myStreamWriter.Flush()

        Catch exc As Exception
            ' Show the error to the user.
            MsgBox("A copy of the serial port Data-Reading for this Coffee Machine could not be Created:" + _
                vbCrLf + vbCrLf + "Exception: " + exc.Message)
        Finally

            If Not myStreamWriter Is Nothing Then
                myStreamWriter.Close()
            End If
        End Try
    End Sub

[plenderj]

Not that I have any VB.Net experience, but I would imagine you would then have to manually change the file permissions yourself - i.e. not have the StreamWriter do it ...

[piscis]

plenderj

Thanks for your quick reply, I cannot do that, there are too many files involved to do it manualy.

I will try this instead:

File.SetAttributes(myFileName, FileAttributes.ReadOnly)

[plenderj]

Sorry yeah that's what I meant, that you'd have to use another line or two of code to set the permissions on the file after you've finished writing, as opposed to have the permissions set while writing.

... which if you think about it you wouldn't be able to do anyway ...

[piscis]

plenderj:


Thanks for your help and time. I appreciated.

Andy

[piscis]

plenderj:

Can you take a look at my other questions?

Thanks

Andy

[dynamic_sysop]

a working example of readonly is this ...

[color=blue]Private Sub[/color] Button4_Click([color=blue]ByVal[/color] sender [color=blue]As[/color] System.Object, [color=blue]ByVal[/color] e [color=blue]As[/color] System.EventArgs) [color=blue]Handles[/color] Button4.Click
        [color=blue]Dim[/color] sReader [color=blue]As New[/color] StreamWriter([color=blue]New[/color] FileStream("C:\somestuff.txt", FileMode.OpenOrCreate, FileAccess.Write))
        [color=blue]With[/color] sReader
            .WriteLine("some stuff!")
            .Close()
            File.SetAttributes("C:\somestuff.txt", FileAttributes.ReadOnly)
        [color=blue]End With[/color]
    [color=blue]End Sub[/color]

[piscis]

dynamic_sysop:

Thanks pal, God bless your twins.

Andy