Batya
|
 Posted: Fri Jan 27, 2006 16:15 Post subject: |
 |
|
Давай, пока с выделением разберемся.
Поменяй кусок кода
| Code: | If Len(SelectList1) > 0 Then
SelectList1 = Mid(SelectList1, 2)
TCS.SendCommand 521 'cm_SpreadSelection
TCS.SendKeystroke SelectList1 & "{ENTER}"
End If
If Len(SelectList2) > 0 Then
SelectList2 = Mid(SelectList2, 2)
TCS.SendKeystroke "{TAB}"
TCS.SendCommand 521 'cm_SpreadSelection
TCS.SendKeystroke SelectList2 & "{ENTER}"
TCS.SendKeystroke "{TAB}"
End If
|
на
| Code: | If Len(SelectList1) > 0 Then
SelectList1 = Mid(SelectList1, 2)
TCS.SendCommand 521 'cm_SpreadSelection
TCS.SendKeystroke SelectList1
End If
|
По-нормальному, у тебя должно отобразиться окно выделения с введенной маской выделения - перечень папок, которые нужно выделить. У тебя так?
Что происходит, если после этого нажать Enter? |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
