PDA

View Full Version : dmcscripting.converter in VBA Access automation error 800700C1



agnys
04-10-2014, 03:24 PM
Environment : Win7 64bit / Access 2007 / Dbpoweramp R14.3

code :

================================================== ============================

Dim dMC
Set dMC = CreateObject("dMCScripting.Converter")


============== previous statement generates " automation error 800700C1" =========================

strt = "C:\mp3\A Certain Sadness.mp3"

' Read All IDTags
Dim i
For i = 0 To 10000
Dim Element As String, Value As String
Element = ""
Value = ""
Call dMC.ReadIDTag(StrT0, i, Element, Value)
If Element = "" Then Exit For
MessageBox.Show (Element + ": " + Value)
Next

================================================== ===========

What can I do to avoid this error code

Spoon
04-10-2014, 04:05 PM
Try running as a .vbs script, does it crash?

agnys
04-11-2014, 10:19 AM
Running as a vbs script gives no problems

code :
Wscript.echo "test dmcscripting"
Set WshShell = CreateObject("WScript.Shell")
Set dMC = CreateObject("dMCScripting.Converter")
strt = "C:\mp3\A Certain Sadness.mp3"

' Read All IDTags
For i = 0 To 20

Dim ElementValue
ElementValue = dMC.ReadIDTagElementValue(strt,i)
If ElementValue = "" Then Exit For
Call WshShell.Popup(i & ": " & ElementValue, , "Read Tag", 0)
Next

Spoon
04-12-2014, 06:53 AM
Then it is likely the issue is in 2007 access.

agnys
04-12-2014, 04:10 PM
I already did activate the reference "dMCSripting Type 1 Library" in Access
Are there other references I have to activate ?

Spoon
04-13-2014, 11:25 AM
Not as far as I am aware.