Fra .txt til VB 6.0

Dim fs As FileSystemObject
Set fs = New FileSystemObject
fs.CopyFile sourcefil, destinationsfilnavn, True
set fs = nothing

husk at sætte en reference til Windows Scripting Host i dit projekt

hente første linie fraen .txt-fil:

  Dim FilNummer as Integer
  Filnummer = FreeFile
  Open "C:\Fil.txt" For Input As #Filnummer
  Line Input #Filnummer, Text3.text 'Putter 1. linie ind i MinString1
  Close #Filnummer


Hente hele textfilen:

  Dim i as integer
  Dim FilNummer as Integer
  Dim Dummy as string
  Filnummer = FreeFile
  Open "C:\Fil.txt" For Input As #Filnummer
  while not eof(Filnummer)
    Line Input #Filnummer, Dummy 'Putter aktuel linie ind i Dummy
    text3.text = text3.text & dummy
  wend
  Close #Filnummer