fasfb.bas

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

Attribute VB_Name = "Fasfb"

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")
 Faws.ListView1.ListItems.Clear


     
   On Error Resume Next

      Set f = fs.GetFolder(X)
      Set fc = f.SubFolders
      
      For Each f1 In fc
        S = f1.name
        Faws.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 = Faws.icoindex(f1.path, S)
               
       Faws.ListView1.ListItems.Add , f1.path, S, index

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


 

Case 2

 fileinfo = 0

Faws.Scmnet3.SendData "1" & X

End Select

End Sub