VB Script中如何使用Split函数处理反斜杠"\"？

路径拆分的错误修正 #

• VBScript中不存在字符串对象的.split()方法，必须使用全局的Split()函数，语法为Split(待拆分字符串, 分隔符)。
• VBScript字符串里的单个反斜杠\无需转义，直接用"\"作为分隔符即可，使用"\\\\"会导致分隔符匹配错误，进而拆分失败。

正确的路径拆分代码：

StrPath = "C:\Documents\Test" 
strFileParts = Split(StrPath, "\")

实现路径/文件自动创建 #

如果需要实现「路径不存在则创建多级目录，文件不存在则创建文件」的需求，可以借助Scripting.FileSystemObject完成，示例代码如下：

Dim fso, targetPath, targetFile
targetPath = "C:\Documents\Test"
targetFile = "C:\Documents\Test\demo.txt"

Set fso = CreateObject("Scripting.FileSystemObject")

' 创建多级目录
If Not fso.FolderExists(targetPath) Then
    fso.CreateFolder(targetPath)
End If

' 创建文件（第二个参数为True表示允许覆盖已存在文件，设为False则不覆盖）
If Not fso.FileExists(targetFile) Then
    Dim textStream
    Set textStream = fso.CreateTextFile(targetFile, True)
    textStream.Close
    Set textStream = Nothing
End If

Set fso = Nothing

内容的提问来源于stack exchange，提问作者Anonima19