VBAによって、ディスク上に空のファイルを生成するプログラム例です。
ここではそのような専用のステートメントを実行するのではなく、「Openステートメント」の"Outputモード(出力専用モード)"によってそのファイルを開き、ただそのまま閉じるだけです。
Sub DiskOprate6()
Dim lngFileNum As Long
lngFileNum = FreeFile
Open "c:\tmp\EmptyFile.txt" For Output As #lngFileNum
Close #lngFileNum
End Sub
|