引用符を追加する

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に変換します。