以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  紧急求助！ 该段代码 在 xp 上能 运行 ，在win7 提示错误！ 帮忙看下  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=50723)
--  作者：ljh29206
--  发布时间：2014/5/12 10:08:00
--  紧急求助！ 该段代码 在 xp 上能 运行 ，在win7 提示错误！ 帮忙看下

Dim cclj As String ="d:\\GTMC数据包\\"
Dim dlg As New OpenFileDialog \'62
Dim k As Integer
dlg.Filter= "压缩文件|*.zip"
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
   If dlg.FileNames.length =3 Then
       
        For k = 1 To dlg.FileNames.length -1
            If  dlg.FileNames(k).SubString(0,62) <> dlg.FileNames(k-1).SubString(0,62) Then
                MessageBox.Show("数据不符")
            \'   Return
            End If
Output.Show(dlg.FileNames(k-1))
       Next
End If
End If

 

 

错误提示:

索引和长度必须引用该字符串内的位置！
！
--  作者：Bin
--  发布时间：2014/5/12 10:12:00
--  
你想实现的需求是什么?
--  作者：ljh29206
--  发布时间：2014/5/12 10:13:00
--  

判断 几个需要解压的文件包  文件名前序  是否一样
--  作者：ljh29206
--  发布时间：2014/5/12 10:20:00
--  

抱歉，自己问题，搞好了 不好意思