View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
lumpy04 lumpy04 is offline
external usenet poster
 
Posts: 5
Default open a text file

Hello,

I have a check list that we use to verify computer builds. I would like to
write code for a checkbox that wouls open a text file on a server. I have
tried 2 ways, neither work.
Private Sub Printers_Click()
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f =
fs.OpenTextFile("\\usshl2-dplfsd01\data$\documentation\printers.txt",
ForAppending, TristateFalse)

End Sub


open \\usshl2-dplfsd01\data$\documentatio\printers.txt for random as #1

There must be a simple solution.....

TIA,
Mike