drive type.frm

vb源码实现对用户电脑驱动器检查

VERSION 4.00
Begin VB.Form DriveType 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Drive Type"
   ClientHeight    =   1470
   ClientLeft      =   2505
   ClientTop       =   1890
   ClientWidth     =   3495
   Height          =   1875
   Icon            =   "Drive Type.frx":0000
   Left            =   2445
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1470
   ScaleWidth      =   3495
   Top             =   1545
   Width           =   3615
   Begin VB.DriveListBox Drive1 
      Height          =   315
      Left            =   120
      TabIndex        =   1
      Top             =   360
      Width           =   3255
   End
   Begin VB.Label Drivetype 
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  'Fixed Single
      Height          =   255
      Left            =   120
      TabIndex        =   3
      Top             =   1080
      Width           =   3255
   End
   Begin VB.Label Label2 
      Caption         =   "Drive Type:"
      Height          =   255
      Left            =   120
      TabIndex        =   2
      Top             =   840
      Width           =   855
   End
   Begin VB.Label Label1 
      Caption         =   "&Drive:"
      Height          =   255
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   495
   End
End
Attribute VB_Name = "DriveType"
Attribute VB_Creatable = False
Attribute VB_Exposed = False





Private Sub Drive1_Change()
 
Select Case GetDriveType(Left(Drive1.Drive, 1) + ":\")
       Case DRIVE_REMOVABLE
            rtn = "Floppy Drive"
       Case DRIVE_FIXED
            rtn = "Hard Drive"
       Case DRIVE_REMOTE
            rtn = "Network Drive"
       Case DRIVE_CDROM
            rtn = "CD-ROM Drive"
       Case DRIVE_RAMDISK
            rtn = "RAM Disk"
End Select

DriveType.Caption = rtn

End Sub



Private Sub Form_Load()

Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2 'centre the form on the screen

Drive1_Change 'display the current drive to the user

'This project was downloaded from
'
'http://www.brianharper.demon.co.uk/
'
'Please use this project and all of its source code however you want.
'
'UNZIPPING
'To unzip the project files you will need a 32Bit unzipper program that
'can handle long file names. If you have a latest copy of Winzip installed
'on your system then you may use that. If you however dont have a copy,
'then visit my web site, go into the files section and from there you can
'click on the Winzip link to goto their site and download a copy of the
'program. By doing this you will now beable to unzip the project files
'retaining their proper long file names.
'Once upzipped, load up your copy of Visual Basic and goto
'File/Open Project. Locate the project files to where ever you unzipped
'them, then click Open. The project files will be loaded and are now ready
'for use.
'
'THE PROJECT
'This project can be very useful if you ever need your program to see what
'drives are installed on the users system. The project only requires one
'API call to determine which has has been passed to it.
'
'NOTES
'I have only provided the necessary project files with the zip. This keeps
'the size of the zip files down to a minimum and enables me to upload more
'prjects files to my site.
'
'I hope you find the project usful in what ever you are programming. I
'have tried to write out a small explanation of what each line of code
'does in the project, although most of it is pretty simple to understand.
'
'If you find any bugs in the code then please dont hesitate to Email me and
'I will get back to you as soon as possible. If you however need help on a
'different matter concerning Visual Basic then please please Email me as
'I like to here from people and here what they are programming.
'
'My Email address is:
'[e-mail]
'
'My web site is:
'http://www.brianharper.demon.co.uk/
'
'Please visit my web site and find many other useful projects like this.
'

End Sub