open file.

Brug FSO sådannne:

Declare...
Private fs As FileSystemObject
Private AccessFileA As TextStream
Private AccessFileB As TextStream

'* sub A()
Set AccessFileA = fs.OpenTextFile(psFilnavnA , ForAppending, True, False)

  AccessFileA.Write "tekst"
  AccessFileA.Close
'* end sub

og en for AccessFileB på samme måde

Og husk lige ref...

Set fs = Nothing
Set fs = CreateObject("scripting.FileSystemObject")

Jeg har fået det til at virke... Man skal huske at kalder man den det enested for #2 så skal den også hede #2 det andet sted... smart...

Der er nu større flex i FSO!

du kan gøre sådan:

Option Explicit

Private Sub Form_Load()
Dim intFree1 As Integer
Dim intFree2 As Integer
Dim strData As String

  intFree1 = FreeFile
  intFree2 = (intFree1 + 1)

  Open "c:\input.txt" For Binary As #intFree1
    Open "c:\output.txt" For Binary As #intFree2

      strData = Space$(LOF(intFree1))
      Get #intFree1, , strData
      Put #intFree2, , strData

    Close #intFree2
  Close #intFree1

End Sub