Results 1 to 2 of 2

Thread: Get drivers at your pc [VB6]

  1. #1
    ghadeer is offline Net Builder
    Join Date
    Oct 2009
    Posts
    108
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Code:
    Private Declare Function GetDriveType Lib \"kernel32\" Alias \"GetDriveTypeA\" _
            (ByVal nDrive As String) As Long
    Private Declare Function GetDiskFreeSpace Lib \"kernel32\" Alias \"GetDiskFreeSpaceA\" _
        (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, _
        lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, _
        lpTtoalNumberOfClusters As Long) As Long
        
    Private Declare Function GetCurrentDirectory Lib \"kernel32\" Alias \"GetCurrentDirectoryA\" _
        (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
    Private Declare Function GetWindowsDirectory Lib \"kernel32\" _
        Alias \"GetWindowsDirectoryA\" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
    Const DRIVE_CDROM = 5
    Const DRIVE_FIXED = 3
    Const DRIVE_RAMDISK = 6
    Const DRIVE_REMOTE = 4
    Const DRIVE_REMOVABLE = 2

  2. #2
    Eyes's Avatar
    Eyes is offline Newbie Net Builder
    Join Date
    May 2009
    Location
    In a Party
    Posts
    83
    Thanks
    0
    Thanked 1 Time in 1 Post
    thanks mate

Tags for this Thread

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •