Gruppe
API
Problem
Wie kann ich über einen aufgefangenen Fehler eine WAV-Datei abspielen lassen?
StandardModule: basMain
Declare Function sndPlaySound32 Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName _
As String, ByVal uFlags As Long) As Long
Sub LaufwerkARufen()
On Error Resume Next
ChDir "irgendwas"
If Err = 76 Then GoTo ERRORHANDLER
End
ERRORHANDLER:
Call sndPlaySound32(Range("A1").Value, 1)
End Sub