Gibts Alternativen zu File-/DirectoryExists?

[Jumpy]

Mach mal einen Doppelpost statt eines Edits, weil ich im obigen Zusammenhang noch eine andere Frage habe. Ich habe in Excel eine ähnliche Checker-Klasse gebaut. Darin gab es eine Funktion, die den Status des Laufwerkes (eines Pfades) geprüft hat:

Code:

'VBA-Code
Private Function Laufwerkstatus(ByVal Pfad As String) As Integer
  On Error Resume Next
  If CreateObject("Scripting.FileSystemObject").GetDrive(Pfad).IsReady = True Then
    If Err.Number = 68 Then
      Laufwerkstatus = 0    'Das Laufwerk ist nicht verfügbar.
      Err.Clear
      Exit Function
    Else
      Laufwerkstatus = 1    'Das Laufwerk ist verfügbar und bereit.
      Exit Function
    End If
  Else
    Laufwerkstatus = 2      'Das Laufwerk ist verfügbar aber nicht bereit.
  End If
End Function

Es gab nämlich manchmal das Problem, dass das (Netz-)Laufwerk scheinbar da war, wurde z.B. auch im Explorer angezeigt, aber der Zugriff darauf scheiterte dann. Mal wegen Problemen mit dem Netzwerk oder dem DFS.

Frage nun, kann man das auch in Delphi nachbauen? CreateObject gibts doch in Delphi auch, oder?