catalog.frm

用户初始化磁盘路径后,就可以扫描那个磁盘里所有的文件.(隐藏文件扫不到)

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Catalog Disk"
   ClientHeight    =   5955
   ClientLeft      =   1995
   ClientTop       =   1650
   ClientWidth     =   7470
   LinkTopic       =   "Form1"
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   5955
   ScaleWidth      =   7470
   Begin VB.ListBox List2 
      Height          =   3480
      Left            =   480
      Sorted          =   -1  'True
      TabIndex        =   5
      Top             =   1560
      Width           =   6495
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Catalog Now"
      Height          =   615
      Left            =   2880
      TabIndex        =   4
      Top             =   720
      Width           =   1455
   End
   Begin VB.DriveListBox Drive1 
      Height          =   315
      Left            =   2160
      TabIndex        =   3
      Top             =   120
      Width           =   2895
   End
   Begin VB.DirListBox Dir1 
      Height          =   480
      Left            =   840
      TabIndex        =   2
      Top             =   5280
      Visible         =   0   'False
      Width           =   1455
   End
   Begin VB.FileListBox File1 
      Height          =   450
      Left            =   2640
      TabIndex        =   1
      Top             =   5280
      Visible         =   0   'False
      Width           =   1935
   End
   Begin VB.ListBox List1 
      Height          =   420
      Left            =   5160
      TabIndex        =   0
      Top             =   5160
      Visible         =   0   'False
      Width           =   1455
   End
   Begin VB.Label Label1 
      Height          =   255
      Left            =   5040
      TabIndex        =   6
      Top             =   1200
      Width           =   1935
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
List1.Clear     '初始化清空
List2.Clear     '初始化清空
Dir1.Path = Left$(Drive1.Drive, 2) & "\"  '让文件夹路径等于磁盘路径如:c:\=c:\
File1.Path = Dir1.Path                    '让文件路径等于文件夹路径他们初始化值一样
For t& = 0 To File1.ListCount - 1
    List2.AddItem Dir1.Path + File1.List(t&)
Next           '一直到这里的效果是计算出根目录的文件个数
For t& = 0 To Dir1.ListCount - 1
    List1.AddItem Dir1.List(t&)
Next
If t& = 0 Then GoTo finishedpoint '如果根目录下没有文件夹就跳转到finishedpoint结束
cnt& = 0            'cnt&变量初始值为0
startpoint:
Dir1.Path = List1.List(cnt&)
File1.Path = Dir1.Path
For t& = 0 To Dir1.ListCount - 1
    List1.AddItem Dir1.List(t&)
Next
For t& = 0 To File1.ListCount - 1
    List2.AddItem Dir1.Path + "\" + File1.List(t&)
Next
cnt& = cnt& + 1
If cnt& < List1.ListCount Then GoTo startpoint
'下面就是finishedpoint跳转语句代码
finishedpoint:
Label1.Caption = "Total:" + Str$(List2.ListCount)
For i = 0 To List1.ListCount - 1
If Dir(List1.List(i) & "\1.txt") <> "" Then
 Kill List1.List(i) & "\1.txt"
End If
Next i
End Sub