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?