左右添加引號

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轉換爲字符。