ok jeg prøver
i den sammenhæng hvor jeg skal bruge det vælger jeg filerne med commondialog
så de vil altid findes.
"Frank Bertelsen" <fb@schultz.dk> skrev i en meddelelse
news:5eb1d714b686e87c71f58b48c088b378.8017@mygate.mailgate.org...
> Hej Jan,
>
> Her er en rimelig enkel løsning:
>
> Dim Fil As Integer
> Dim Buffer1 As String
> Dim Buffer2 As String
>
> Fil = FreeFile
>
> 'Indlæs data fra fil nr. 1
> Open "fil1.xxx" For Binary As Fil
> Buffer1 = Space(LOF(Fil))
> Get Fil, , Buffer1
> Close Fil
>
> 'Indlæs data fra fil nr. 2
> Open "fil2.xxx" For Binary As Fil
> Buffer2 = Space(LOF(Fil))
> Get Fil, , Buffer2
> Close Fil
>
> 'Udskriv data i outputfil
> Open "nyfil.xxx" For Output As Fil
> Print #Fil, Buffer1 & Buffer2;
> Close Fil
>
> Du skal lige være opmærksom på, at denne kode ikke "brokker sig" hvis
> inputfilerne ikke findes - de bliver simpelthen oprettet fordi de åbnes
binært.
> Hvis du vi checke om filerne findes, må du starte med at åbne dem "For
Input"
> og så checke om det går godt ved hjælp af "On Error" kommandoen.
>
>
>
> --
> Posted via Mailgate.ORG Server -
http://www.Mailgate.ORG