DriveExists - Check whether a logical drive exists [ All Languages » VB »  Windows] Total Hit ( 4010) Rate this article:     Poor     Excellent   Submit Your Question/Comment about this article Rating

Click here to copy the following block Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias _   "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, _   ByVal lpBuffer As String) As Long    ' Check whether a given drive exist ' Note that this returns True even if the drive isn't currently ready ' (e.g. a diskette isn't in drive A:)    Function DriveExists(ByVal sDrive As String) As Boolean   Dim buffer As String   buffer = Space(64)   ' return False if invalid argument   If Len(sDrive) = 0 Then Exit Function   'get the string that contains all drives   GetLogicalDriveStrings Len(buffer), buffer   ' check that the letter we're looking for is there   DriveExists = InStr(1, buffer, Left$(sDrive, 1), vbTextCompare) End Function

Related Article(s)

Submitted By : Nayan Patel  (Member Since : 5/26/2004 12:23:06 PM)
	Job Description : He is the moderator of this site and currently working as an independent consultant. He works with VB.net/ASP.net, SQL Server and other MS technologies. He is MCSD.net, MCDBA and MCSE. In his free time he likes to watch funny movies and doing oil painting.
View all (893) submissions by this author  (Birth Date : 7/14/1981 )