Check For Existance of Drive.

[Ed2020]

I want to check to see if a user of one of my system has an E:\ drive set up on their machine.

I thought I could do this with the Dir() function, but this doesn't seem to work.

Anybody got any ideas?

Ed Metcalfe.

 

[biot023]

One idea, using Dir(), could be to trap the failure to change to the E: drive (if it didn't exist) in an On Error Goto routine.
This isn't very elegant, however, so I'll post back when I've had a better idea.

 

[Spellman]

I don't know whether you've tried it or not but try using the dir function with the vbdirectory attribute

dir("E:\",vbdirectory)

otherwise try using the filesystem object something like this.

Sub ShowDriveList
Dim fs, d, dc, s, n
Set fs = CreateObject("Scripting.FileSystemObject&quot
Set dc = fs.Drives
For Each d in dc
if d.driveletter = "E" then
found = true
end if
Next
MsgBox s
End Sub

Mark

The key to immortality is to make a big impression in this life!!

 

[biot023]

Got it - just use ChDrive. As in

ChDrive "E" ' Make "E" the current drive.

Again, it would need an error trapper.
I think Spellman (above) has the more elegant solution.

 

[Ed2020]

Thanks all. ChDrive works a treat.

Ed Metcalfe.e

 

[fishape]

I see this code in another site. I tried and it works perfectly.
It returns true or false and works with dir or file.


Function AsfFichDir(stPath As String, Optional lngType As Long) As Integer
'To check for a file - AsfFichDir("c:\winnt\win.ini&quot
'To check for a Dir - AsfFichDir("c:\msoffice",vbdirectory)

On Error Resume Next
AsfFichDir = Len(Dir(stPath, lngType)) > 0

End Function

 

[Aivars]

Hi Ed!
Try my function mybe:

Function IsDriveReady(Optional DrvLetter As String = "A&quot As Boolean
'Function returns true if drive is ready
'and it stands to reason exists.
'Drive "A:" default drive
Dim fs, d, s
Set fs = CreateObject("Scripting.FileSystemObject&quot
Set d = fs.GetDrive(DrvLetter)
IsDriveReady = d.IsReady
End Function

dim bln as boolean
bln=IsDriveReady 'Check for drive "A:" (default)

if not IsDriveReady("D&quot then
exit sub
end if

Aivars