ایجاد ساخت یک فایل با اسکریپت وی بی

[www.pc3enter.tk]

این متن را می توانید بگذارید در نودپد و بعد با وی بی اس اجرا (https://msdn.microsoft.com/en-us/library/5t9b5c0c(v=vs.84).aspx) کنید

call CreateAfile

Sub CreateAfile
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine("This is a test.")
MyFile.Close
msgbox "ok"
End Sub


این هم متد جاوا برای اشنایی بیشتر

var fso = new ActiveXObject("Scripting.FileSystemObject");
var a = fso.CreateTextFile("c:\\testfile.txt", true);
a.WriteLine("This is a test.");
a.Close();



و برای صفحات وب از کد می توانید استفاده کنید


<form onSubmit="WriteToFile(this)">
<script type="text/VBscript">

Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
MyFile.WriteLine("This is a test1")
MyFile.Close
</script>

<input type="submit" value="submit">
</form>