miaozk2006

Dim fso As New FileSystemObject

Dim modi As Boolean

Dim new1 As Boolean

Dim f

Dim x As Integer

Dim filename As String

Private Sub menunew_Click()

    new1 = True

    Text1.Text = ""

    Text1.SetFocus

End Sub

Private Sub menuopen_Click()

    If modi Then

        x = MsgBox("Êý¾ÝÒѾ­±»ÐÞ¸Ä,ÄãÈ·¶¨Òª±£´æÂð?", vbYesNo)

        If x = vbNo Then Exit Sub

    End If

    Dim fso As New FileSystemObject

    Dim f

    Dim ts As TextStream 'ͨ¹ý´Ë¶ÔÏó¿Éµ÷ÓÃһЩ·½·¨

    CommonDialog1.DialogTitle = "´ò¿ªÎļþ"

    CommonDialog1.Filter = "Îı¾Îļþ(*.txt) |*.txt| ËùÓÐÎļþ (*.*) | *.*"

    CommonDialog1.ShowOpen

    filename = CommonDialog1.filename

    Set f = fso.GetFile(filename)

    Set ts = f.OpenAsTextStream(ForReading)

    Text1.Text = ts.ReadAll

    ts.Close

    Set ts = Nothing

    Set f = Nothing

    Set fso = Nothing

    Text1.SetFocus

End Sub

Private Sub menusave_Click()

    Dim fso, f

    If modi And new1 Then

        CommonDialog1.DialogTitle = "±£´æÎļþ"

        CommonDialog1.Filter = "Îı¾Îļþ(*.txt) |*.txt"

        CommonDialog1.ShowSave

        filename = CommonDialog1.filename

        Set fso = CreateObject("scripting.filesystemobject")

        fso.CreateTextFile filename

        Set f = fso.GetFile(filename)

        Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)

        ts.Write Text1.Text

        ts.Close

        modi = False

        xinjian = False

    End If

    If modi = True Then

        Set fso = CreateObject("scripting.filesystemobject")

        fso.CreateTextFile filename

        Set f = fso.GetFile(filename)

        Set ts = f.OpenAsTextStream(ForWriting)

        ts.Write Text1.Text '½«text1.textдÈëµ½ÎļþfilenameÖÐ

        ts.Close

        modi = False

    End If

End Sub

Private Sub Text1_Change()

    modi = True

    'new1=True

End Sub