Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: ReneX am 05.06.03 - 09:10:44
-
Guten Morgen
gibt es eine Möglichkeit mit Notes zu prüfen ob sich eine CD im
CD Laufwerk befindet bevor auf dieses Laufwerk zugegriffen wird.
Bisher gibt es bei uns eine Abfragen an den User aber eine automatische Überprüfung wäre ja eleganter
Mfg Rene ???
-
Laufzeitfehler abfangen?
-
Mit einer API geht das
Declare Function GetVolumeInformation& Lib "kernel32" _
Alias "GetVolumeInformationA" (Byval lpRootPathName _
As String, Byval pVolumeNameBuffer As String, Byval _
nVolumeNameSize As Long, lpVolumeSerialNumber As Long, _
lpMaximumComponentLength As Long, lpFileSystemFlags As _
Long, Byval lpFileSystemNameBuffer As String, Byval _
nFileSystemNameSize As Long)
Const MAX_FILENAME_LEN = 256
Function IsDriveReady(Drive$) As Variant
IsDriveReady = False
Dim No&, s As String * MAX_FILENAME_LEN
Call GetVolumeInformation(Drive & ":\", s, MAX_FILENAME_LEN, _
No, 0&, 0&, s, MAX_FILENAME_LEN)
If No& <>0 Then
IsDriveReady = True
End If
End Function
Sub Click(Source As Button)
Msgbox IsDriveReady ("E")
End Sub
und wer es lieber pur liebt, hier ein quick hack in script
Function IsDriveReady ( drive As String ) As Variant
IsDriveReady = True
On Error Goto errHandle
Chdrive drive
Exit Function
errHandle:
IsDriveReady = False
Resume Next
End Function
eknori
-
@eknori
Danke für deinen Lösungen.
Ich habe es auch gleich mal ausprobiert aber egal ob sich eine CD im Laufwerk befindet oder nicht, bekomme ich immer ein false ausgegeben.
Ich bin aber auch eher ein Script Anfänger.
Muß man vielleicht noch den Laufwerksbuchstaben mit angeben?
-
ähh, na logisch