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