Tømme indholdet af en fil?

objFs.CreateTextFile(filename[, overwrite[, unicode]])
Brug Private objFs As FileSystemObject

hvis du skriver:

Call SaveFile("", "C:\Testfile.txt", True)

så er filen tom

'----------------------- Form1 -----------------------
Option Explicit

Private Sub Form_Load()
  Call SaveFile("Test tekst", "C:\Testfile.txt", True)
End Sub

Public Sub SaveFile(ByVal strSave As String, _
                    ByVal strFile As String, _
                    Optional Overwrite As Boolean = False)
Dim intFile As Integer
intFile = FreeFile
  If Overwrite Then
    Open strFile For Output Shared As #intFile
      Else
    Open strFile For Append As #intFile
  End If
  Print #intFile, strSave;
  Close #intFile
End Sub
'----------------------- Form1 -----------------------

Jeg løste det egentlig ved bare at åbne filen sådan her:

Open strFilename For Output Shared As #1
Close #1

Så bliver filen automatisk tømt - Det svarer dog meget til sjh's metode, så pointene falder der :-)

Ja såden kan du jo også gøre. Tak for point :-)