Fil til Text

nu kan man gøre det på flere måder, her er én af de måder man kan gøre det på:


Public Function OpenText(ByVal strPath As String) As String
Dim strData As String
Dim intFree As Integer
  intFree = FreeFile
    Open strPath For Binary Access Read As #intFree
      strData = Space$(LOF(intFree))
      Get #intFree, 1, strData
    Close #intFree
  OpenText = strData
End Function

Private Sub Form_Load()
  Text1.Text = OpenText("C:\tekstfile.txt")
End Sub

Tak