srefurbish.bas

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

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

Public Sub refu(X As String, Y As Long)



Select Case Y

Case 1
 
 

  Dim fc, f1, fs, d, dc
 
  Dim S As String

 
 
 Dim f
  Set fs = CreateObject("Scripting.FileSystemObject")
 Form3.ListView1.ListItems.Clear


     
   On Error Resume Next

      Set f = fs.GetFolder(X)
      Set fc = f.SubFolders
      
      For Each f1 In fc
        S = f1.name
        Form3.ListView1.ListItems.Add , f1.path & "\", S, 1
      Next
      
 
    
      
    Set fc = f.files
    For Each f1 In fc
               S = f1.name
               
               Dim index As Long
               index = Form3.icoindex(f1.path, S)
               
       Form3.ListView1.ListItems.Add , f1.path, S, index

    Next
    
    
    
    
     Form3.StatusBar1.Panels(2).Text = X
    
     Form3.StatusBar1.Panels(2).ToolTipText = X
     


 

Case 2

 fileinfo = 0

Form3.Winsock1.SendData "1" & X

End Select

End Sub