“需要帮助才能删除”&引用；数组中项目的分隔符，VBscript

我的代码来自列出多个文件路径并使用分号“；”作为分隔符的数据单元格。在分割数据并将其放入数组后，我需要删除分号。否则，我的文件路径进入循环时无效

澄清一下：当数据单元中只有一个文件路径时，我的代码就可以工作，当它碰到一个具有多个路径的单元时，它就会因为“；”而死亡

任何帮助都将不胜感激

我的代码如下：

<%
strValue = RS("ATTACHMENTS")
strAryWords = Split(strValue, ";")

' - strAryWords is now an array
For i = 0 to Ubound(strAryWords)
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    Set fileObject = fso.getFile(strAryWords(i))

    Response.Write "<TH><TR align=left><TD>" & strAryWords(i) &"  "& fileObject.Size &"  "&"<img src=images/up.gif><BR></TD></TR>"

    Set fileObject = Nothing
    Set fso = Nothing  
Next
%>

---

如果问题是strValue后面有一个“；”，将代码更改为：

strValue = RS("ATTACHMENTS")
strAryWords = Split(strValue, ";")


' - strAryWords is now an array
For i = 0 to Ubound(strAryWords)
    If strAryWords(i) <> "" Then
        Set fso = Server.CreateObject("Scripting.FileSystemObject")
        Set fileObject = fso.getFile(strAryWords(i))

        Response.Write "<TH><TR align=left><TD>" & strAryWords(i) &"  "& fileObject.Size &"  "&"<img src=images/up.gif><BR></TD></TR>"

        Set fileObject = Nothing
        Set fso = Nothing
    End If
NEXT

strValue=RS（“附件”）
strAryWords=Split（标准值，“；”）
'-strAryWords现在是一个数组
对于i=0到Ubound（strAryWords）
如果是“我”，那么
设置fso=Server.CreateObject（“Scripting.FileSystemObject”）
Set fileObject=fso.getFile（strAryWords（i））
响应。写入“&strAryWords（i）&”&fileObject.Size&“&”
”
Set fileObject=Nothing
设置fso=无
如果结束
下一个
如果问题是strValue后面有一个“；”，将代码更改为：

strValue = RS("ATTACHMENTS")
strAryWords = Split(strValue, ";")


' - strAryWords is now an array
For i = 0 to Ubound(strAryWords)
    If strAryWords(i) <> "" Then
        Set fso = Server.CreateObject("Scripting.FileSystemObject")
        Set fileObject = fso.getFile(strAryWords(i))

        Response.Write "<TH><TR align=left><TD>" & strAryWords(i) &"  "& fileObject.Size &"  "&"<img src=images/up.gif><BR></TD></TR>"

        Set fileObject = Nothing
        Set fso = Nothing
    End If
NEXT

strValue=RS（“附件”）
strAryWords=Split（标准值，“；”）
'-strAryWords现在是一个数组
对于i=0到Ubound（strAryWords）
如果是“我”，那么
设置fso=Server.CreateObject（“Scripting.FileSystemObject”）
Set fileObject=fso.getFile（strAryWords（i））
响应。写入“&strAryWords（i）&”&fileObject.Size&“&”
”
Set fileObject=Nothing
设置fso=无
如果结束
下一个
请说明您使用的是哪种语言（visual basic？），并相应地标记问题。添加了“vb.net初学者”标记。看起来像经典的ASP，除非我的眼睛欺骗了我：）Sebastian问问题的人重新标记VBScript时，您为什么重新标记vb.net？它不是vb.net。它是或Vb 6或VBScript请说明您使用的语言（visual basic？），并相应地标记问题。添加了“Vb.net初学者”标记。看起来像经典的ASP，除非我的眼睛欺骗了我：）Sebastian问问题的人重新标记VBScript时，为什么您重新标记Vb.net？它不是Vb.net。它是VB6或Vbscript