Open .txt file

[sharky12345]

Can someone show me how I can open the following file through VBA?

dt = Format(Now, "dd_mm_yyyy_hh:mm")

ThisWorkbook.path & "\Vehicle Maintenance Files\Reports\Vehicle Fleet Status Log " & dt & ".txt"

 

[Dryver14]

Found on the web

Sub OpenTextFileTest    Const ForReading = 1, ForWriting = 2, ForAppending = 3    Dim fs, f    Set fs = CreateObject("Scripting.FileSystemObject")    Set f = fs.OpenTextFile("c:\testfile.txt", ForAppending,TristateFalse)    f.Write "Hello world!"    f.CloseEnd Sub

 

[lrobbo314]

Sub openText()
Dim Path As String
Dim dt As String
dt = Format(Now, "dd_mm_yyyy_hh:mm")


Path = ThisWorkbook.Path & "\Vehicle Maintenance Files\Reports\Vehicle Fleet Status Log " & dt & ".txt"
ActiveWorkbook.FollowHyperlink Path, NewWindow:=True


End Sub

 

[sharky12345]

Thanks guys.........