The problem is on this line:
oShell.run "cmd.exe /C copy "S:ClaimsSound.wav" "C:WINDOWSMediaSound.wav"
Your first quote next to "S:Claims" ends the string; you need to escape the quotes around your files with a second quote, like this:
oShell.run "cmd.exe /C copy ""S:ClaimsSound.wav"" ""C:WINDOWSMediaSound.wav"" "
You also have a typo in S:ClaimsSound.wav
, should be S:ClaimsSound.wav
.
I also assume the apostrophe before Dim oShell
and after Set oShell = Nothing
are typos as well.
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…