新しく空のテキストファイルを作ります。
それだけです。(^^;

【実行画面】



< VBScript >

'//////////////////////////////////////////////////////////
'//
'//     テキストファイル新規作成
'//                                     2004年11月20日 改

Dim objFS, objFile
Dim newfile

Set objFS = CreateObject("Scripting.FileSystemObject")
newfile = InputBox("新規ファイル名を入れる",_
    "新規テキストファイル作成","newfile.txt")

If newfile = "" Then
Else
    objFS.CreateTextFile newfile,False
End If




戻る