slist2tolist1.bas

来自「星子行主机控制系统用于主机管理,方便远程操作,通信等功能.更 方便用于局域网」· BAS 代码 · 共 40 行

Attribute VB_Name = "Slist2tolist1"
'****************************************************************************
'网  站：http://www.hackeroo.com/
'e-mail：[e-mail]
'OICQ  : 266370
'****************************************************************************
Option Explicit

Public list2paths() As String   '存放list2中选中的项
Public list2index As Long       'list2数组的下标


Public Sub list2_list1()

If (list2index > UBound(list2paths)) Then

Sleep (100)

Form3.Winsock1.SendData "5" & "发送完成"

fileinfo = 0
list2index = 0
Exit Sub

End If

fileinfo = 6

Form3.Winsock1.SendData "4" & list2paths(list2index)


list2index = list2index + 1


End Sub