dir.frm

不错的一个VB菜单设计 界面和功能都不错

VERSION 5.00
Object = "{75D4F148-8785-11D3-93AD-0000832EF44D}#3.2#0"; "FAST2003.ocx"
Object = "{75D4F666-8785-11D3-93AD-0000832EF44D}#3.0#0"; "FAST2006.ocx"
Begin VB.Form frmDirectory 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Directory information"
   ClientHeight    =   2220
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4710
   Icon            =   "Dir.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2220
   ScaleWidth      =   4710
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdProperties 
      Caption         =   "Properties..."
      Height          =   375
      Left            =   3300
      TabIndex        =   4
      Top             =   1380
      Width           =   1275
   End
   Begin VB.CommandButton cmdGetInfo 
      Caption         =   "Get Info"
      Height          =   375
      Left            =   3300
      TabIndex        =   3
      Top             =   840
      Width           =   1275
   End
   Begin VB.TextBox txtInfo 
      Appearance      =   0  'Flat
      BackColor       =   &H8000000F&
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "Courier New"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   945
      Left            =   240
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      TabIndex        =   2
      Top             =   840
      Width           =   2985
   End
   Begin VB.TextBox txtDirectory 
      Height          =   315
      Left            =   180
      TabIndex        =   0
      Top             =   360
      Width           =   4335
   End
   Begin FLWDiskFile.FWDirectory objDirectory 
      Left            =   3600
      Top             =   30
      _ExtentX        =   820
      _ExtentY        =   820
   End
   Begin FLWSystem.FWSysInfo objSysInfo 
      Left            =   4215
      Top             =   15
      _ExtentX        =   820
      _ExtentY        =   820
   End
   Begin VB.Label lblLabel 
      AutoSize        =   -1  'True
      Caption         =   "FASTWin has a lot of methods to manage disks and directories"
      Height          =   195
      Index           =   1
      Left            =   90
      TabIndex        =   5
      Top             =   1920
      Width           =   4440
   End
   Begin VB.Label lblLabel 
      AutoSize        =   -1  'True
      Caption         =   "Directory"
      Height          =   195
      Index           =   0
      Left            =   210
      TabIndex        =   1
      Top             =   120
      Width           =   630
   End
End
Attribute VB_Name = "frmDirectory"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdGetInfo_Click()
  Dim lngDirs  As Long
  Dim lngFiles As Long
  Dim lngSize  As Long
  
  If objDirectory.GetInfo(txtDirectory, True, lngDirs, lngFiles, lngSize) Then
    txtInfo = "Folders: " & VBA.Format$(lngDirs, "#,###,###,##0") & vbNewLine & _
              "Files  : " & VBA.Format$(lngFiles, "#,###,###,##0") & vbNewLine & _
              "Size   : " & VBA.Format$(lngSize, "#,###,###,##0")
  Else
    txtInfo = "Error..."
  End If
End Sub

Private Sub cmdProperties_Click()
  Call objDirectory.ShowProperties(Me.hWnd, txtDirectory)
End Sub

Private Sub Form_Load()
  txtDirectory = objSysInfo.Windows
End Sub