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

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

No.1 ベストアンサー 回答者： bin-chan 回答日時： 2002/01/18 20:18

OUTPUTでOPENすればＯＫです。

Dim nFile as Integer

nFile = FreeFile

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

この回答へのお礼

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

お礼日時：2002/01/21 23:48

No.2 回答者： sssohei 回答日時： 2002/01/18 20:21

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

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

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

この回答へのお礼

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

お礼日時：2002/01/18 21:34