黑基Web安全攻防班
安基网 首页 IT技术 电脑技术 查看内容

VBScript 文件操作代码小结

2009-9-23 15:55| 投稿: computer

摘要:   下面是一些vbs下常用到的一些文件操作代码,整理了下方便以后开发使用,提高效率。   创建文本文件   代码如下:   Set objFSO = CreateObject("Scriptin...

免责声明:本站系公益性非盈利IT网站,本文由投稿者转载自互联网,文末已注明出处,其内容和图片版权归原作者所有,文中所述不代表本站观点,若有侵权或转载不当之处请从网站右下角联系我们处理。

  下面是一些vbs下常用到的一些文件操作代码,整理了下方便以后开发使用,提高效率。   创建文本文件   代码如下:   Set objFSO = CreateObject("Scripting.FileSystemObject")   Set objFile = objFSO.CreateTextFile("C:\FSO\ScriptLog.txt")   检察文件是否存在   复制代码 代码如下:   Set objFSO = CreateObject("Scripting.FileSystemObject")   If objFSO.FileExists("C:\FSO\ScriptLog.txt") Then   Set objFolder = objFSO.GetFile("C:\FSO\ScriptLog.txt")   Else   Wscript.Echo "File does not exist."   End If   删除文本文件   代码如下:   Set objFSO = CreateObject("Scripting.FileSystemObject")   objFSO.DeleteFile("C:\FSO\ScriptLog.txt")   重命名文件   代码如下:   Set objFSO = CreateObject("Scripting.FileSystemObject")   objFSO.MoveFile "C:\FSO\ScriptLog.txt" , "C:\FSO\BackupLog.txt"   文本操作   读取全部内容   复制代码 代码如下:   Const ForReading = 1   Set objFSO = CreateObject("Scripting.FileSystemObject")   Set objFile = objFSO.OpenTextFile("C:\Scripts\Test.txt", ForReading)   strContents = objFile.ReadAll   objFile.Close   一行行的读取文本文件内容   代码如下:   Const ForReading = 1   Set objFSO = CreateObject("Scripting.FileSystemObject")   Set objTextFile = objFSO.OpenTextFile ("c:\scripts\servers.txt", ForReading)   Do Until objTextFile.AtEndOfStream   strComputer = objTextFile.ReadLine   Wscript.Echo strComputer   Loop   objTextFile.Close   追加文本文件一行内容   代码如下:   Const ForAppending = 8   Set objFSO = CreateObject("Scripting.FileSystemObject")   Set objTextFile = objFSO.OpenTextFile ("C:\Scripts\Service_Status.txt", ForAppending, True)   objTextFile.WriteLine("追加的内容")   objTextFile.Close   有用的几个函数:   替换:将Jim替换成James。   代码如下:   strNewText = Replace(strText, "Jim ", "James ")   用逗号分隔字符串:   代码如下:   arrpath=split(strDN,",")   wscript.echo arrpath(0)   几个实例:   读取文本文件指定的行内容(读第四行内容存到strLine变量中)   代码如下:   Const ForReading = 1   Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("mylogfile.log", ForReading)   For i = 1 to 3 objTextFile.ReadLine Next   strLine = objTextFile.ReadLine Wscript.Echo strLine   objTextFile.Close

小编推荐:欲学习电脑技术、系统维护、网络管理、编程开发和安全攻防等高端IT技术,请 点击这里 注册账号,公开课频道价值万元IT培训教程免费学,让您少走弯路、事半功倍,好工作升职加薪!



免责声明:本站系公益性非盈利IT网站,本文由投稿者转载自互联网,文末已注明出处,其内容和图片版权归原作者所有,文中所述不代表本站观点,若有侵权或转载不当之处请从网站右下角联系我们处理。


鲜花

握手

雷人

路过

鸡蛋

相关阅读

最新评论

最新

返回顶部