VB6拆分函数运行时错误9下标超出范围

Question

token = Split(thisfile, "List1")(1)

token = RC4(token, Passwd)

在第一行我得到 vb6 运行时错误 9 下标超出范围 我已经尝试过使用 UBound 但不起作用...在 windows 7 64 位上不会出现此错误...仅在 32 位上出现？

完整代码（文件范围 - 加密）：

Const mypass = "Passwd"

Sub Main()

Dim thisfile As String, token As String, selfpath As String

'The path to itself

selfpath = App.Path & "\" & App.EXEName & ".exe"

'open itself and get all the data in one variable

Open selfpath For Binary As #1

thisfile = Space(LOF(1))

Get #1, , thisfile

Close #1

token = Split(thisfile, "List1")(1)

token = RC4(token, Passwd)

Answer 1

Split 返回一个基于 0 的数组。您正在尝试访问第二个元素（元素 1）。由于您收到此错误，这意味着在此文件中找不到“List1”。