Создание файлов при помощи JavaScript и VBScript

<script language="VBScript">
Dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile("c:\testfile.txt", True)
</script> 

<script language="JavaScript">
var fso, f1;
fso = new ActiveXObject("Scripting.FileSystemObject");
f1 = fso.CreateTextFile("c:\\testfile.txt", true);
</script>

Вот теперь, создав чистый файл, можно приступить к его заполнению... 

Dim fso, ts
Const ForWriting = 2
Set fso = CreateObject("Scripting. FileSystemObject")
Set ts = fso.OpenTextFile("c:\test.txt", ForWriting, True) 

var fso, ts;
var ForWriting= 2;
fso = new ActiveXObject("Scripting.FileSystemObject");
ts = fso.OpenTextFile("c:\\test.txt", ForWriting, true); 

Sub CreateFile()
 Dim fso, tf
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set tf = fso.CreateTextFile("c:\testfile.txt", True)
 ' Вставка строки с переносом на новую.
 tf.WriteLine("Testing 1, 2, 3.") 
 ' Вставка 3 путых строк.
 tf.WriteBlankLines(3)
 ' Вставка новой строки, без переноса.
 tf.Write ("This is a test.") 
 ' Закрытие файла.
 tf.Close
End Sub

function CreateFile()
{
 var fso, tf;
 fso = new ActiveXObject("Scripting.FileSystemObject");
 tf = fso.CreateTextFile("c:\\testfile.txt", true);
 // Вставка строки с переносом на новую.
 tf.WriteLine("Testing 1, 2, 3.") ;
 // Вставка 3 пустых строк.
 tf.WriteBlankLines(3) ;
 // Вставка новой строки, без переноса.
 tf.Write ("This is a test.");
 ' Закрытие файла.
 tf.Close();
}