Retrieve Drive Information Using Shell API

Category:

System/API

Type:

Snippets

Difficulty:

Intermediate

Author:

Marcel Slooff

Version Compatibility: Visual Basic 6

More information:

This simple code allowes you to retrieve information about a drive. It returns drive information like: 'Local drive', 'Nework drive' and 'Cdrom station'. You can easily modify to read the structure retrieved to return other information about the drive.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Option Explicit Public Const SHGFI_ATTRIBUTES = &H800 ' get attributes Public Const SHGFI_DISPLAYNAME = &H200 ' get display name Public Const SHGFI_EXETYPE = &H2000 ' return exe type Public Const SHGFI_ICON = &H100 ' get icon Public Const SHGFI_ICONLOCATION = &H1000 ' get icon location Public Const SHGFI_LARGEICON = &H0 ' get large icon Public Const SHGFI_LINKOVERLAY = &H8000 ' put a link overlay on icon Public Const SHGFI_OPENICON = &H2 ' get open icon Public Const SHGFI_PIDL = &H8 ' pszPath is a pidl Public Const SHGFI_SELECTED = &H10000 ' show icon in selected state Public Const SHGFI_SHELLICONSIZE = &H4 ' get shell size icon Public Const SHGFI_SMALLICON = &H1 ' get small icon Public Const SHGFI_SYSICONINDEX = &H4000 ' get system icon index Public Const SHGFI_TYPENAME = &H400 ' get type name Public Const SHGFI_USEFILEATTRIBUTES = &H10 ' use passed dwFileAttribute Public Const FILE_ATTRIBUTE_ARCHIVE = &H20 Public Const FILE_ATTRIBUTE_COMPRESSED = &H800 Public Const FILE_ATTRIBUTE_DIRECTORY = &H10 Public Const FILE_ATTRIBUTE_HIDDEN = &H2 Public Const FILE_ATTRIBUTE_NORMAL = &H80 Public Const FILE_ATTRIBUTE_READONLY = &H1 Public Const FILE_ATTRIBUTE_SYSTEM = &H4 Public Const FILE_ATTRIBUTE_TEMPORARY = &H100 Public Const MAX_PATH = 260 Public Type SHFILEINFO hIcon As Long 'out: icon iIcon As Long 'out: icon index dwAttributes As Long 'out: SFGAO_ flags szDisplayName As String * MAX_PATH 'out: display name (or path) szTypeName As String * 80 'out: type name End Type Public Declare Function SHGetFileInfo Lib "shell32.dll" _ Alias "SHGetFileInfoA" (ByVal pszPath As String, _ ByVal dwFileAttributes As Long, psfi As SHFILEINFO, _ ByVal cbFileInfo As Long, ByVal uFlags As Long) As Long

Code: