【无标题】 - 技术栈

一. CreateObject 函数创建一个指定类型的对象。

语法

CreateObject(servername.typename[,location])

参数	描述
servername	必需。提供此对象的应用程序名称。
typename	必需。对象的类型或类（type/class）。
location	可选。在何处创建对象。

vbscript 复制代码

'RegExp 是 VBScript 中用于处理正则表达式的对象，提供字符串匹配和替换功能
'Pattern：设置正则表达式模式，例如re.Pattern = "sb"。

txt="fuck,sb"
Set re=CreateObject("vbscript.regexp")
re.Pattern="sb"

'弹窗： fuck,**'
msgbox re.Replace(txt,"**")

二. 文件夹操作： CreateObject("Scripting.FileSystemObject")

1. 创建文件夹

vbscript 复制代码

Set objFSO = CreateObject("Scripting.FileSystemObject")
 
folderPath = "G:\folder"
 
If Not objFSO.FolderExists(folderPath) Then
    objFSO.CreateFolder(folderPath)
    msgbox "Folder created successfully."
Else
    msgbox "Folder already exists."
End If

2. 删除文件夹

vbscript 复制代码

Set objFSO = CreateObject("Scripting.FileSystemObject")
 
folderPath = "G:\folder"
 
If objFSO.FolderExists(folderPath) Then

    objFSO.DeleteFolder folderPath, True ' 设置True以删除非空文件夹
    
    WScript.Echo "Folder deleted successfully."
Else
    WScript.Echo "Folder does not exist."
End If

3.复制文件夹

vbscript 复制代码

Set objFSO = CreateObject("Scripting.FileSystemObject")

'源文件地址'
sourceFolder = "G:\folder1\sb"
'复制文件的目标地址'
destinationFolder = "G:\folder2\sb"
 
If objFSO.FolderExists(sourceFolder) Then
    objFSO.CopyFolder sourceFolder, destinationFolder, True ' 设置True以覆盖已存在的目标文件夹
    WScript.Echo "Folder copied successfully."
Else
    WScript.Echo "Source folder does not exist."
End If

4. 移动文件夹

vbscript 复制代码

Set objFSO = CreateObject("Scripting.FileSystemObject")
 
'源文件地址'
sourceFolder = "G:\folder1\sb"
'复制文件的目标地址'
destinationFolder = "G:\folder2\sb"
 
If objFSO.FolderExists(sourceFolder) Then
    objFSO.CopyFolder sourceFolder, destinationFolder, True ' 先复制，然后删除原文件夹需要手动处理
    objFSO.DeleteFolder sourceFolder, True ' 删除原文件夹，确保其为空或手动处理其中的文件和子文件夹
    WScript.Echo "Folder moved successfully."
Else
    WScript.Echo "Source folder does not exist."
End If

三. 文件操作

1. 检查文件是否存在：fileExists

vbscript 复制代码

Set fso = CreateObject("Scripting.FileSystemObject")

if fso.fileExists("G:\folder2\sb\sb.txt") then
    msgbox "sb.txt exists"
else
    msgbox "sb.txt no exists"
end if

2. 创建一个文件： CreateTextFile

vbscript 复制代码

Set fso = CreateObject("Scripting.FileSystemObject")

if not fso.fileExists("G:\folder2\sb\sb.txt") then
    fso.CreateTextFile("G:\folder2\sb\sb.txt")
    msgbox "file is sucess Create"
else
    msgbox "sb.txt is allready exists"
end if

3. 文件属性获取： GetFile

vbscript 复制代码

Set fso = CreateObject("Scripting.FileSystemObject")

set file = fso.getfile("G:\folder2\sb\sb.txt")

'file.Name        文件名
'file.Path        完整路径
'file.Size        字节大小
'file.Type        文件类型
'file.DateCreated 创建日期
msgbox file.name