在[重复]周围添加引号

Question

下面的脚本运行良好。它在指定位置搜索 .exe 文件并输出包含文件位置的文件。

所有这些都很好。除了我希望输出文件行都包含在“”中，怎么做？

Option Explicit 'force all variables to be declared

On Error Resume Next
Const ForWriting = 2
Dim objFSO
Set objFSO = CreateObject(Scripting.FileSystemObject)

Dim objTS 'Text Stream Object
Set objTS = objFSO.OpenTextFile("output_path", ForWriting, True)

Recurse objFSO.GetFolder("location_of_files")
objTS.Close()

Sub Recurse(objFolder)
    Dim objFile, objSubFolder

    For Each objFile In objFolder.Files
        If LCase(objFSO.GetExtensionName(objFile.Name)) = "exe" Then
            objTS.WriteLine(objfile.Path)
        End If
    Next

    For Each objSubFolder In objFolder.SubFolders
        Recurse objSubFolder
    Next
End Sub

Answer 1

改变这一行：

objTS.WriteLine(objfile.Path)

对此：

objTS.WriteLine("""" & objfile.Path & """")

这看起来很奇怪，因为您必须将嵌入的引号加倍。

或者您可以使用 chr(34)，如下所示：

objTS.WriteLine(chr(34) & objfile.Path & chr(34))

chr() 函数将指定的character code 转换为字符。