シーケンシャルファイルのデータを削除

質問

シーケンシャルファイルのデータを削除したいのです。
データ領域を完全に0Byteにしたいのですが
方法がわかりません。
よろしくお願いします。

回答No.1

bin-chan · ベストアンサー

OUTPUTでOPENすればＯＫです。

Dim nFile as Integer

nFile = FreeFile

Open "ここはファイル名（ファイルパスもＯＫ）" For Output As #nFile
Close

お礼

ありがとうございました。
確認できました。

回答No.2

sssohei

Output モードで開くとその時点で、ファイルの中身が消えないでしょうか？

Dim Filenum As Integer
Filenum = FreeFile()
Open "C:\Test.txt" For Output As #Filenum
Close (Filenum)

のようなコードで確認しました。
書き込み禁止属性のついていないファイルなら可能です。
ファイルを削除したいのなら、Killステートメントで可能です。

お礼

ありがとうございました。
確認できました。