<< Click to Display Table of Contents >> Kill (Anweisung)

Kill Dateiname

Löscht die angegebene(n) Datei(en).

In Dateiname sind auch Platzhalter wie "*" und "?" erlaubt. Folgendermaßen werden beispielsweise alle Dateien mit der Namenserweiterung "bak" entfernt:

Kill "*.bak"

Siehe auch: RmDir

Beispiel:

Const NumberOfFiles = 3

Sub Main

 Dim Msg                   ' Variablen deklarieren

 Call MakeFiles()          ' Dateien anlegen

 Msg = "Einige Testdateien wurden angelegt. "

 Msg = Msg & "Klicken Sie auf OK, werden sie wieder entfernt."

 MsgBox Msg

 For i = 1 To NumberOfFiles

         Kill "TEST" & o        ' Dateien löschen

 Next i

End Sub

Sub MakeFiles()

 Dim i, FNum, FName        ' Variablen deklarieren

 For i = 1 To NumberOfFiles

         FNum = FreeFile       ' Nächsten freien Dateizeiger holen

         FName = "TEST" & i

         Open FName For Output As Fnum       ' Datei öffnen

         Print #FNum, "Dies ist Test #" & i  ' In Datei schreiben

         Print #FNum, "Hier kommt noch eine ";  "Zeile";  i

 Next i

 Close                     ' Alle Dateien wieder schließen

End Sub