Gruppe
API
Bereich
Ton
Thema
WAV-Datei abspielen
Problem
Wie kann ich über einen aufgefangenen Fehler eine WAV-Datei abspielen lassen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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