使用VBS或JS读写硬盘文件

使用VBS或JS读写硬盘文件
2010年01月12日
　　DHTML技术：FileSystemObject (FSO)祥解
　　以下内容只是vbs和javascript技术的[冰山一角]，如果你还想学习更多的网页
　　或Internet编程技术,请继续关注本网站的一举一动。现在黑客们利用vbs,javascript,
　　ActiveX技术大力进攻网络，给人们的生活造成了不便。要想打倒+防止黑客，必须知道
　　黑客的技术，本网站以后为了提供您的编程实力，更为了打倒+防止黑客，会陆续介绍
　　一些国际上顶尖的黑客编程技术+作案手段+程序源代码。对了，关于Delphi+3D图像编程
　　的文章，许多读者朋友强烈建议：发布工程源文件。在此，对您的建议表示感谢。
　　本网站，不久将会陆续推出“公开的Delphi6/7/8工程源文件”，例如：
　　浏览器、ActiveX、反黄软件、杀毒软件、HTML教学软件、网页编辑器、VBS病毒源文件
　　到时请关注“公开的Delphi6/7/8工程源文件”栏目！
　　最后说一句：“欢迎继续来信与我探讨！黑客+3D+Delphi=编程话题”
　　利用FileSystemObject (FSO) 你可以方便快捷地创建、编辑、删除、浏览硬盘上
　　的文件、目录、驱动器。
　　它包含如下内容：FileSystemObject、Drive、Drives、Files、File、Folder、Folders
　　TextStream，其中的TextStream用于读写文件。
　　你必须使用如下语句先创建一个FSO对象，才能够编辑硬盘上的文件：
　　――――――――――――――――――――――――――――――――――――
　　[VBScript]
　　Dim fso
　　Set fso = CreateObject("Scripting.FileSystemObject")
　　[JScript]
　　var fso;
　　fso = new ActiveXObject("Scripting.FileSystemObject");
　　――――――――――――――――――――――――――――――――――――
　　在创建了FSO对象之后还必须用GetDrive、GetFolder和GetFile获得驱动器、目录和文件
　　的读写访问权（类似于Delphi中的assign(varfn,'d:\1.htm')）。
　　例如：
　　――――――――――――――――――――――――――――――――――――
　　[VBScript]
　　Dim fso, f1
　　Set fso = CreateObject("Scripting.FileSystemObject")
　　Set f1 = fso.GetFile("c:\test.htm")
　　[JScript]
　　var fso, f1;
　　fso = new ActiveXObject("Scripting.FileSystemObject");
　　f1 = fso.GetFile("c:\\test.htm");
　　――――――――――――――――――――――――――――――――――――
　　下面看一个比较完整的实例：
　　――――――――――――――――――――――――――――――――――――
　　[VBScript]
　　Dim fso, f1
　　Set fso = CreateObject("Scripting.FileSystemObject")
　　Set f1 = fso.GetFile("c:\detlog.htm")
　　document.title= "File last modified: " & f1.DateLastModified
　　[JScript]
　　var fso, f1;
　　fso = new ActiveXObject("Scripting.FileSystemObject");
　　f1 = fso.GetFile("c:\\detlog.htm");
　　document.title="File last modified: " + f1.DateLastModified;
　　――――――――――――――――――――――――――――――――――――
　　实例：在硬盘上创建一个文件
　　――――――――――――――――――――――――――――――――――――
　　[VBScript]
　　Dim fso, f1
　　Set fso = CreateObject("Scripting.FileSystemObject")
　　Set f1 = fso.CreateTextFile("c:\testfile.htm", True)
　　[JScript]
　　var fso, f1;
　　fso = new ActiveXObject("Scripting.FileSystemObject");
　　f1 = fso.CreateTextFile("c:\\testfile.htm", true);
　　――――――――――――――――――――――――――――――――――――
　　实例：打开硬盘上已经存在的一个文件
　　――――――――――――――――――――――――――――――――――――
　　VBScript]
　　Dim fso, ts
　　Const ForWriting = 2
　　Set fso = CreateObject("Scripting. FileSystemObject")
　　Set ts = fso.OpenTextFile("c:\test.htm", ForWriting, True)
　　[JScript]
　　var fso, ts;
　　var ForWriting= 2;
　　fso = new ActiveXObject("Scripting.FileSystemObject");
　　ts = fso.OpenTextFile("c:\\test.htm", ForWriting, true);
　　――――――――――――――――――――――――――――――――――――
　　实例：编辑硬盘上已经存在的一个文件
　　――――――――――――――――――――――――――――――――――――
　　Sub CreateFile()
　　Dim fso, tf
　　Set fso = CreateObject("Scripting.FileSystemObject")
　　Set tf = fso.CreateTextFile("c:\testfile.htm", True)
　　'添加一行数据，并且写入换行符号
　　tf.WriteLine("腾讯个人博客空间")
　　' 添加3个空行
　　tf.WriteBlankLines(3)
　　' 添加一行数据
　　tf.Write ("欢迎访问我的网站")
　　tf.Close
　　End Sub
　　[JScript]
　　function CreateFile()
　　{
　　var fso, tf;
　　fso = new ActiveXObject("Scripting.FileSystemObject");
　　tf = fso.CreateTextFile("c:\\testfile.htm", true);
　　'添加一行数据，并且写入换行符号
　　tf.WriteLine("腾讯个人博客空间") ;
　　' 添加3个空行
　　tf.WriteBlankLines(3) ;
　　' 添加一行数据
　　tf.Write ("欢迎访问我的网站");
　　tf.Close();
　　}
　　――――――――――――――――――――――――――――――――――――