Problem to open file

Hi,
I get this problem

due to last 2nd line below

    If Dir(File0) = "" Then
        Set f = fs.createtextfile(File0)
    Else
        Set f = fs.OpenTextFile(File0, 3, TristateFalse)
    End If

Open in new window

Why?

LVL 12

HuaMin ChenProblem resolverAsked: 2016-03-13

Who is Participating?

Experts Exchange Solution brought to you by

Enjoy your complimentary solution view.

Get this solution by purchasing an Individual license! Start your 7-day free trial.

I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

LVL 58

Gustav BrockCIOCommented: 2016-03-14

Try with:

    ForAppending = 8
    TristateFalse = 0
    If Dir(File0) = "" Then
        Set f = fs.createtextfile(File0)
    Else
        Set f = fs.OpenTextFile(File0, ForAppending, TristateFalse)
    End If

Open in new window

/gustav

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial

LVL 12

HuaMin ChenProblem resolverAuthor Commented: 2016-03-14

Many thanks.
I want to further read all the lines, from the text file. Any example?

LVL 58

Gustav BrockCIOCommented: 2016-03-14

Oh, numerous - just bing/google on that.

/gustav

LVL 12

HuaMin ChenProblem resolverAuthor Commented: 2016-03-14

Using these

    Dim fs, f
    Set fs = CreateObject("Scripting.FileSystemObject")
    File0 = ActiveWorkbook.Path & "\MonthStatus.txt"
    
    Dim iFile As Integer: iFile = FreeFile
    Open File0 For Input As #iFile
    Do Until EOF(1)
        Line Input #1, TextLine
        
        MsgBox TextLine
        If Trim(TextLine) <> "" Then
            ...
        End If
    Loop

Open in new window

I cannot read the lines inside the file. Why?

LVL 58

Gustav BrockCIOCommented: 2016-03-14

A little more precision is needed:

    Dim fs, File0, TextLine
    Set fs = CreateObject("Scripting.FileSystemObject")
    File0 = ActiveWorkbook.Path & "\MonthStatus.txt"
    
    Dim iFile As Integer: iFile = FreeFile
    Open File0 For Input As #iFile
    Do Until EOF(iFile)
        Line Input #iFile, TextLine
        
        MsgBox TextLine
        If Trim(TextLine) <> "" Then
        '    ...
        End If
    Loop