Skrive til en fil i Script
Jeg forsøger at skrive til en fil, men det bliver ren volapyk når jeg åbner med f.eks notepad. Hvad gør jeg galt?Set rtitem = doc.GetFirstItem( "Body" )
If doc.HasEmbedded Then
j=1
Forall o In rtitem.EmbeddedObjects
'Set o = rtitem.EmbeddedObjects
If ( rtitem.Type = RICHTEXT ) Then
If ( o.Type = EMBED_ATTACHMENT ) _
Then
If Len(j) = 1 Then
counter = 0 + j
Else
counter = j
End If
Call o.ExtractFile _
( filename + Cstr(counter) + ".txt" )
'***** Write data to file
fileNum% = Freefile()
fileNameA$ = filename + Cstr(counter) + ".txt"
Open fileNameA$ For Output As fileNum%
Print #fileNum%, "test"
Close fileNum%