-

所有数理统计知识的源代码都在此,是一本数理统计数的配套光盘.里面有各种分布类型及参数估计插值

VERSION 5.00
Begin VB.Form frmFileList 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   Caption         =   "文件列表"
   ClientHeight    =   3810
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   7845
   LinkTopic       =   "Form1"
   ScaleHeight     =   3810
   ScaleWidth      =   7845
   StartUpPosition =   3  '窗口缺省
   Begin VB.ListBox lstSize 
      Height          =   3120
      Left            =   6360
      TabIndex        =   7
      Top             =   360
      Width           =   975
   End
   Begin VB.ListBox lstDBM 
      Height          =   3120
      Left            =   3840
      TabIndex        =   5
      Top             =   360
      Width           =   2415
   End
   Begin VB.DirListBox Dir1 
      Height          =   3240
      Left            =   1440
      TabIndex        =   3
      Top             =   360
      Width           =   2295
   End
   Begin VB.DriveListBox Drive1 
      Height          =   300
      Left            =   120
      TabIndex        =   2
      Top             =   360
      Width           =   1215
   End
   Begin VB.Label lblSize 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "数据库大小（字节）"
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   6000
      TabIndex        =   6
      Top             =   120
      Width           =   1815
   End
   Begin VB.Label lblFile 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "数据库列表"
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   3840
      TabIndex        =   4
      Top             =   120
      Width           =   2415
   End
   Begin VB.Label lblDir 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "选择目录"
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   1440
      TabIndex        =   1
      Top             =   120
      Width           =   2295
   End
   Begin VB.Label lblDrive 
      Alignment       =   2  'Center
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "选择驱动器"
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   1215
   End
   Begin VB.Menu mnuDB 
      Caption         =   "数据库"
   End
   Begin VB.Menu mnuFL 
      Caption         =   "数据文件"
   End
   Begin VB.Menu mnuExit 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "frmFileList"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'frmFileList窗体
'使用文件系统对象
'在选择驱动器和目录之后，显示数据库文件或数据文件
'包括文件名和大小
Option Explicit
Dim strType As String
Dim objA As New FileSystemObject
Dim objB As File

Private Sub Form_Load()
    strType = "MDB"                     '缺省时是数据库文件
    For Each objB In objA.GetFolder(Dir1.Path).Files
        If UCase(objA.GetExtensionName(objB.Path)) = strType Then
            lstDBM.AddItem objB.Name    '在列表框显示文件名
            lstSize.AddItem objB.Size   '在列表框显示文件大小
        End If
    Next
End Sub

Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End Sub

Private Sub Dir1_Change()
    lstDBM.Clear
    lstSize.Clear
    For Each objB In objA.GetFolder(Dir1.Path).Files
        If UCase(objA.GetExtensionName(objB.Path)) = strType Then
            lstDBM.AddItem objB.Name
            lstSize.AddItem objB.Size
        End If
    Next
End Sub

Private Sub mnuDB_Click()
    lblFile.Caption = "数据库列表"
    lblSize.Caption = "数据库大小（字节）"
    strType = "MDB"
    lstDBM.Clear
    lstSize.Clear
    For Each objB In objA.GetFolder(Dir1.Path).Files
        If UCase(objA.GetExtensionName(objB.Path)) = strType Then
            lstDBM.AddItem objB.Name
            lstSize.AddItem objB.Size
        End If
    Next
End Sub

Private Sub mnuFL_Click()
    lblFile.Caption = "数据文件列表"
    lblSize.Caption = "数据文件大小（字节）"
    strType = "DAT"
    lstDBM.Clear
    lstSize.Clear
    For Each objB In objA.GetFolder(Dir1.Path).Files
        If UCase(objA.GetExtensionName(objB.Path)) = strType Then
            lstDBM.AddItem objB.Name
            lstSize.AddItem objB.Size
        End If
    Next
End Sub

Private Sub mnuExit_Click()
    Unload Me
    frmDatabase.Show
End Sub