MS Word - Reading Text File 1

[dodgyone]

I have a global variable set at the top of the module:

Public GLBstrEFOLDERID As String

I then have code within Sub AutoOpen() to do this immediately when the document is opened:

Sub AutoOpen()
    
Dim strReadLine As String
    
If Dir("\\itax-dmdev2\SOAPDownload\Admin.txt") <> "" Then
  
  Open "\\itax-dmdev2\SOAPDownload\Admin.txt" For Output As #1
  Do While Not EOF(1)
    Line Input #1, strReadLine
    If Left(strReadLine, 9) = "EFOLDERID" Then
       GLBstrEFOLDERID = Mid(strReadLine, 11, 31)
    End If
  Loop
  
  Close #1
 
End If
    
MsgBox GLBstrEFOLDERID
       
End Sub

The contents of Admin.txt is:

EFOLDERID=0000000000000000000000000935691

The problem is that rather than reading the file line by line and putting this into the global variable it is deleting the contents. Any suggestions would be welcomed. Thanks...

 

[PHV]

Replace this:
For Output As #1
with this:
For Input As #1

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[dodgyone]

Thanks PHV. Should of known that... Doh!!!