[lostfriend88]

Передо мной стоит задача выгрузки каждого трека в kml-файл.

Делаю следующее:

Set AG = CreateObject("AutoGRAPH.AutoGRAPHAutomation")
AG.WaitForInitializing
Dim num
num = 0
GroupsNum = AG.GroupsNum
For i = 1 To GroupsNum
    AG.GroupIndex = i
    CarsNum = AG.GroupCarsNum
    For j = 1 To CarsNum
        AG.CarIndex = j
        Dim date1
        Dim date2
 date1 = #11/01/2012 00:00:00#
 date2 = Now() 
        AG.ComputingTimeout = 100
   AG.WaitForComputing AG.GroupFileName, AG.CarDevice, date1, date2, "GSM", 1
        TripsNum = AG.TripsNum           
        For k = 1 To TripsNum
            AG.TripIndex = k
     Dim name
     name = num & ".kml"
            AG.ExportTrackToFile name, 1, "", "", 1, 0, -1, 0, 1, 1
     num = num + 1
        Next  
    Next 
Next

Однако ничего не происходит.
Быть может, не те параметры в ExportTrackToFile?