Vbscript 连接联接（数组（）中的变量+字符串）

我有下面的脚本，它引用了两个文件名，第二个文件名存在于JoinArray中，但我需要使用之前在变量中定义的文件夹名，以便在此文件夹中创建新文件，并存储此脚本生成的最终结果：

    Option Explicit

Const LOCAL_APPLICATION_DATA = &H1c&

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(LOCAL_APPLICATION_DATA)
Set objFolderItem = objFolder.Self

Set colItems = objFolder.Items

Dim sCurDir
Dim sFina

For Each objItem in colItems

    If InStr(1, objItem.Name, "Google") > 0 Then

      sCurDir =  objFolderItem.Path + "\" + objItem.Name + "\Chrome\User Data\Default\"
      sFina = "History"

      Exit For

    End If
Next

    Function qq(s) : qq = """" & s & """" : End Function

    Const cnHidden = 0
    Const cbWait = True

    Dim sCmd : sCmd = Join(Array( _
         "%comspec%" _
       , "/c" _
       , "sqlite3.exe" _
       , "-csv" _
       , qq("..\data\History") _
       , qq("SELECT id, url FROM urls LIMIT 5") _
       , ">.\urls.csv" _
    ))
    WScript.Echo sCmd
    CreateObject("WScript.Shell").Run sCmd, cnHidden, cbWait
    WScript.Echo "Done"

然后，如果我尝试用例如+sCurDir+new.csv替换>\url.csv，则会创建文件don't。如何解决它？

已解决：

---

这条生产线的产量是多少？WScript.Echo-sCmdDim-sCmd:sCmd=JoinArray\u%comspec%\uu、/c\u、sqlite3.exe、-csv\uu、qqsCurDir+sFina、qqqselect-id、url-FROM-url-LIMIT 5\uu、>。\urls.csv\u@AlexGawkins，用例如+sCurDir+new.csv替换>\urls.csv后，查询命令的结果为

    Dim strUser
    strUser = CreateObject("WScript.Network").UserName

    ...

    Dim sCmd : sCmd = Join(Array( _
             "%comspec%" _
           , "/c" _
           , "sqlite3.exe" _
           , "-csv" _
           , qq(sCurDir + sFina) _
           , qq("SELECT url FROM urls") _
           , ">C:\Users\"+strUser+"\AppData\Local\Google\Chrome\new.csv" _
        ))