vbs 文件操作集合代码
VBScript(VBS)是一种功能强大的脚本语言,常用于Windows系统中的自动化任务。它提供了丰富的文件操作函数,可以轻松地实现创建、复制、移动、删除文件,以及读取、写入文件内容等操作。
' 创建一个新的文本文件
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("C:\temp\newfile.txt", True)
objFile.WriteLine "Hello, world!"
objFile.Close
' 复制文件
objFSO.CopyFile "C:\source.txt", "C:\destination.txt"
' 移动文件
objFSO.MoveFile "C:\source.txt", "C:\newfolder"
' 删除文件
objFSO.DeleteFile "C:\temp\newfile.txt"
' 创建文件夹
objFSO.CreateFolder "C:\newfolder"
' 删除文件夹
objFSO.DeleteFolder "C:\newfolder", True ' True表示递归删除子文件夹
' 读取整个文件
Set objFile = objFSO.OpenTextFile("C:\temp\newfile.txt")
strContent = objFile.ReadAll
objFile.Close
MsgBox strContent
' 按行读取
Set objFile = objFSO.OpenTextFile("C:\temp\newfile.txt")
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
MsgBox strLine
Loop
objFile.Close
' 追加写入
Set objFile = objFSO.OpenTextFile("C:\temp\newfile.txt", 8, True) ' 8表示追加模式
objFile.WriteLine "This is a new line."
objFile.Close
' 获取文件属性
Set objFile = objFSO.GetFile("C:\temp\newfile.txt")
MsgBox "文件大小:" & objFile.Size & "字节"
MsgBox "文件创建时间:" & objFile.DateCreated
' 设置文件属性
objFile.Attributes = 2 ' 设置为只读属性
' 搜索指定文件夹下的所有文本文件
Set objFolder = objFSO.GetFolder("C:\")
For Each objFile In objFolder.Files
If LCase(objFile.Name) Like "*.txt" Then
MsgBox objFile.Path
End If
Next
On Error Resume Next
' ... 执行可能出错的代码
If Err.Number <> 0 Then
MsgBox "错误:" & Err.Description
End If
On Error GoTo 0
VBS提供了丰富的文件操作函数,可以满足绝大多数的文件操作需求。通过灵活运用这些函数,可以编写出功能强大、自动化程度高的脚本。
温馨提示: 在实际应用中,建议根据具体需求来选择合适的文件操作函数,并注意代码的优化和错误处理。
想了解更多关于VBS的知识,可以参考MSDN官方文档或查阅相关的技术书籍。
如果您有更具体的问题,欢迎随时提出!
关键词:VBS, 文件操作, 创建文件, 复制文件, 移动文件, 删除文件, 读取文件, 写入文件, 文件属性, 文件搜索