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”。