SetWorkingDir, C:\Users\Patrick\Downloads\tmp-reset-analysis-meme\

global f

global b
global c
global e
global m
global r
global s
global w
global y
global l
b := FileOpen("b.txt", "a")
c := FileOpen("c.txt", "a")
e := FileOpen("e.txt", "a")
r := FileOpen("r.txt", "a")
m := FileOpen("m.txt", "a")
s := FileOpen("s.txt", "a")
w := FileOpen("w.txt", "a")
y := FileOpen("y.txt", "a")
l := FileOpen("l.txt", "a")

global words
words := { "b": "bike", "c": "car", "e": "enex", "r": "running", "s": "shooting", "w": "waiting", "y": "cycling", "m": "misc", "l": "flying" }

F12::reload
b::b()
c::c()
e::e()
r::r()
s::s()
w::w()
y::y()
m::m()
l::l()


append(f, l){
    msg := words[l]
    tooltip, %msg%
    KeyWait b
    KeyWait c
    KeyWait e
    KeyWait s
    KeyWait w
    KeyWait y
    KeyWait m
    KeyWait r
    KeyWait l
    clipboard := ""                ; empty clipboard
    Send, ^c                       ; copy the selected file
    ClipWait, 1                    ; wait for the clipboard to contain data
    if (!ErrorLevel)               ; If NOT ErrorLevel clipwait found data on the clipboard
    clipboard := clipboard         ; convert to text (= copy the path)
    f.Write( RegExReplace(clipboard, ".*\\(.*)", "$1") )
}


b(){
    append(b, "b")
}
c(){
    append(c, "c")
}
e(){
    append(e, "e")
}
r(){
    append(r, "r")
}
s(){
    append(s, "s")
}
w(){
    append(w, "w")
}
y(){
    append(y, "y")
}
m(){
    append(m, "m")
}
l(){
    append(l, "l")
}