Fredag 23 Februari 2007, 15:00 vbship felkod när inte shipplotter är igång
Så här förändrade jag vbshipLägg nedanstående programkod först i rutinen writexml() ' Handling file open errors if ShipPlotter not running Dim MyObject On Error Resume Next Set MyObject = GetObject(,"ShipPlotter.Document") if not IsObject(MyObject) Then WScript.Quit Tag sedan bort MyObject från raden som ser ut som nedan: Dim i, shipinfo, MyObject, ais, xml Tag bort raden Set MyObject = GetObject(,"ShipPlotter.Document") Det var denna förändring jag postade i Shipplotters forum. Nu håller jag på att skriva om så att tomma xml-filer ej laddas upp...
Länk: www.bating.se/ais
Marcus | hemsida
|