VBファイルを0KBにする方法

質問

ファイルの中身を削除する（ファイル自体は０KBで残す）方法についてですが
ＤＯＳコマンドは
type nul > a.txt 　で可能なのですが

ＶＢＳでの方法についてご存知で有れば教えてください。

oldFile3 = "a.txt"
newFile3 = "a_bk.txt"
　・
　・
　・
If FSO.FileExists(oldFile3) = True Then
FSO.CopyFile oldFile3, newFile3
　　　　<----- この位置にoldFile3を0KBで残す処理を追加したい (a.txtを0KBにしたい)
End If

宜しくお願いします。

回答No.1

lesskey · ベストアンサー

単純に上書きモードでテキスト開いて閉じれば0バイトのファイルが出来ます。

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("a.txt", True)
a.close

お礼

回答ありがとうございました。
わかりやすく大変助かりました。

回答No.2

fujillin

実データなしのファイルで上書きすれば良いのでは？
（開いて、何も書かずに閉じる）

お礼

回答ありがとうございました。