home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 7_2009-2012.ISO / data / zips / read_and_w217231192010.psc / CREATION / DOMAINS / CodeSection / GFFileAccess / Testfrm.frm < prev   
Text File  |  2004-03-18  |  3KB  |  90 lines
  1. VERSION 5.00
  2. Begin VB.Form Testfrm 
  3.    Caption         =   "GGFFileAccess Test"
  4.    ClientHeight    =   3135
  5.    ClientLeft      =   60
  6.    ClientTop       =   405
  7.    ClientWidth     =   4635
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3135
  10.    ScaleWidth      =   4635
  11.    StartUpPosition =   3  'Windows-Standard
  12.    Begin VB.CommandButton Command3 
  13.       Caption         =   "GetFreeDiskSpace"
  14.       Height          =   375
  15.       Left            =   120
  16.       TabIndex        =   5
  17.       Top             =   960
  18.       Width           =   1815
  19.    End
  20.    Begin VB.CommandButton Command2 
  21.       Caption         =   "GetTotalDiskSpace"
  22.       Height          =   375
  23.       Left            =   120
  24.       TabIndex        =   4
  25.       Top             =   600
  26.       Width           =   1815
  27.    End
  28.    Begin VB.TextBox Text3 
  29.       Height          =   315
  30.       Left            =   2040
  31.       TabIndex        =   3
  32.       Text            =   "C:\"
  33.       Top             =   840
  34.       Width           =   2475
  35.    End
  36.    Begin VB.TextBox Text2 
  37.       Height          =   315
  38.       Left            =   3720
  39.       TabIndex        =   1
  40.       Text            =   "*.*"
  41.       Top             =   120
  42.       Width           =   795
  43.    End
  44.    Begin VB.TextBox Text1 
  45.       Height          =   315
  46.       Left            =   2040
  47.       TabIndex        =   0
  48.       Text            =   "C:\"
  49.       Top             =   120
  50.       Width           =   1575
  51.    End
  52.    Begin VB.CommandButton Command1 
  53.       Caption         =   "GetDirFileSizeTotal"
  54.       Height          =   375
  55.       Left            =   120
  56.       TabIndex        =   2
  57.       Top             =   60
  58.       Width           =   1815
  59.    End
  60. End
  61. Attribute VB_Name = "Testfrm"
  62. Attribute VB_GlobalNameSpace = False
  63. Attribute VB_Creatable = False
  64. Attribute VB_PredeclaredId = True
  65. Attribute VB_Exposed = False
  66. Option Explicit
  67. '(c)2001, 2004 by Louis. Test form for GFFileAccess.
  68. '
  69. 'Downloaded from www.louis-coder.com.
  70. 'GFFileAccessmod can be used for:
  71. '-determinating the size of all files in a dir EXTREMELY FAST;
  72. '-determinating the free and total disk space of a drive
  73. ' (also works on Win95 OSR 1).
  74.  
  75. Private Sub Command1_Click()
  76.     'on error resume next
  77.     Debug.Print GFFileAccess_GetDirFileSizeTotal(Text1.Text, Text2.Text)
  78. End Sub
  79.  
  80. Private Sub Command2_Click()
  81.     'on error resume next
  82.     Debug.Print GFFileAccess_GetTotalDiskSpace(Text3.Text)
  83. End Sub
  84.  
  85. Private Sub Command3_Click()
  86.     'on error resume next
  87.     Debug.Print GFFileAccess_GetFreeDiskSpace(Text3.Text)
  88. End Sub
  89.  
  90.