falmtoly.bas

来自「星子行V2.0(源码)公开星子行V3.0以上版本,都是由星子行V1.0和星子行V」· BAS 代码 · 共 37 行

Attribute VB_Name = "Falmtoly"

Option Explicit

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


Public Sub list2_list1()

If (list2index > UBound(list2paths)) Then

Sleep (100)

Faws.Scmnet3.SendData "5" & "发送完成"

fileinfo = 0
list2index = 0
Exit Sub

End If

fileinfo = 6

Faws.Scmnet3.SendData "4" & list2paths(list2index)


list2index = list2index + 1


End Sub