А вот и скрипт 8) : 1. Создание пустого файла. На первый взглад эта функция может показаться бесполезной, однако, как вы занесете данные в файл, не имея самого файла, не будем же мы потртить фалы посетителя нашей страници. Для того, чтобы создать пустой файл с помощью VBSctipt надо написать в HTML-файле следующий код: <script language="VBScript"> Dim fso, f1 Set fso = CreateObject("Scripting.FileSystemObject") Set f1 = fso.CreateTextFile("c:\testfile.txt", True) </script> Ту же самую функцию выполняет и следующий код, написанный уже на JavaScirpt: <script language="JavaScript"> var fso, f1; fso = new ActiveXObject("Scripting.FileSystemObject"); f1 = fso.CreateTextFile("c:\\testfile.txt", true); </script> Вот теперь, создав чистый файл, можно приступить к его заполнению... 2. Запись данных в файл. а) Открытие файла. Для того, чтобы открыть файл надо применить следующий скрипт: Dim fso, ts Const ForWriting = 2 Set fso = CreateObject("Scripting. FileSystemObject") Set ts = fspenTextFile("c:\test.txt", ForWriting, True) Данный скипт написан на VBScript. Здесь по-моему все понятно. ForWriting - флаг, показывающий зачем открывать файл. Вот тот же скрипт на javascript: var fso, ts; var ForWriting= 2; fso = new ActiveXObject("Scripting.FileSystemObject"); ts = fspenTextFile("c:\\test.txt", ForWriting, true); Надо отметить, что при этом файлы будут автоматически создаваться. б) Непосредственная запись в файл. Для занесения строчек текста в файл используется следующие методы: Задача Метод Втавка новой строки, с последующей возможностью добавления в этуже строку данных, т.е. в конце строки нет символов переноса строки и возврата каретки. Write Втавка новой строки с переносом на следующую. WriteLine Вставка одной или несколких пустых строк. WriteBlankLines Вот примеры скриптов. На vbscript: 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 На javascript: 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(); } Вот и всё =)) Вот еще один скрипт создаёт папку и удаляет =)) <html> <head> <title>Создание и удаление каталогов</title> <style> body {font-size:12px; font-family:verdana;} hr {height:1px; color:silver} </style> <script> function create_folder() { var fso = new ActiveXObject("Scripting.FileSystemObject"); var a = fso.CreateFolder("c:\\new_folder"); } function DeleteFolder(folderspec) { var fso; fso = new ActiveXObject("Scripting.FileSystemObject"); fso.DeleteFolder(folderspec); } </script> </head> <body> <a href="#" onClick="create_folder()">Создать каталог</a> | <a href="#" onClick="DeleteFolder('c:\\new_folder')">Удалить каталог</a> </body> </html>
Можеш еще троян с нета скачать . Забыл правда как он называется , но делает жо хрена записей в этом файле . типа 127,0,01 www.troyan-virus.com и таких записей до хрена .
