GPXSee AHK script

; Kerékpáros utazásaim rögzítését könnyítő kis programocska.
; Csak akkor működik, ha a 3 lenti elérési út jó! Fokozottan figyelni, hogy a gps_computer F legyen.
; (vagyis 3db lemez van a gépben CDE, és ez az elsőnek rádugott tárhely)
; [megtehetném hogy a lemezeken sorban keressen iGPSPORT mappát, de leszarom]


; elérési utak
gps_computer := "F:\iGPSPORT\Activities\20*.fit"
drive_folder := "C:\Users\tonyrulez\Google Drive\iGPS\"
excel := "C:\Users\tonyrulez\Google Drive\Dokumentumok\Programok\kerekpar computer.xlsx"

; útvonalfájl áthelyezése Drive-ba
FileMove, %gps_computer%, %drive_folder%

; legfrisebb útvonalfájl keresése és megnyitása
MostRecentTime:=
Loop, %drive_folder%*.fit
{
    FileGetTime, ThisFileTime
    if (MostRecentTime < ThisFileTime)
    {
        MostRecentTime := ThisFileTime
        FilePath:=A_LoopFileFullPath
    }
}
Run, %FilePath%

; GPXSee bal oldalra mozgat
WinWait, GPXSee
WinMove,,, -8, 0, 960, 1050

; Ctrl+S küldése stathoz
Sleep, 500
Send ^s

; ScrollLock kikapcsol Excel miatt
SetScrollLockState, Off

; Excel megnyitása
xl := ComObjCreate("Excel.Application")
xl.Visible := true
path = %excel%
xl.Workbooks.Open(Path)

; Excel jobbra
WinWait, kerekpar computer.xls
WinActivate, kerekpar computer.xls
WinMove, A,, 960, 0, 960, 1050



ExitApp