Read this Gartner Research Note and discover how your IT organization can automate and optimize DevOps processes using a toolchain architecture.
Sub tell() Dim nFileNum As Integer, sText As String, sNextLine As String With CommonDialog1 .DialogTitle = "Select a file" .ShowOpen End With If CommonDialog1.FileName <> "" Then nFileNum = FreeFile Open CommonDialog1.FileName For Input As nFileNum Do While Not EOF(nFileNum) Line Input #nFileNum, sNextLine List1.AddItem sNextLine Loop Close nFileNum End If End Sub
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
12 Experts available now in Live!