https://redd.it/vn0lta

; UIA check
#SingleInstance Force
if (!A_IsCompiled && !InStr(A_AhkPath, "_UIA.exe")) {
        newPath := RegExReplace(A_AhkPath, "\.exe", "U" (32 << A_Is64bitOS) "_UIA.exe")
        Run % StrReplace(DllCall("Kernel32\GetCommandLine", "Str"), A_AhkPath, newPath)
        ExitApp
}

#Warn ; Enable warnings to assist with detecting common errors.
#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SetWorkingDir % A_ScriptDir ; Ensures a consistent starting directory.

EnvGet OneDrive, ONEDRIVE
root := OneDrive "\Backup\Optimal\Scripts\Other\Playnite\Citra mods\Mods 2"

Buttons := {}                                                                  ; Create Object for the Folder Names and Related Paths
loop Files, % root "\*.*", D
{
        Gamename := A_LoopFileName     ; save game name
        Gamepath := A_LoopFileFullPath ; save game path
        loop Read, % A_ScriptDir "\Destination.txt"
        {
                MsgBox % "Dateizeile pruefen: " A_LoopReadLine " spielname: " Gamename
                if (InStr(A_LoopReadLine, Gamename))
                {
                        MsgBox yes
                        Destination := StrReplace(A_LoopReadLine, Gamename, "")
                }
        }
        loop Files, % Gamepath "\*.*", D
        {
                Buttons.Push({"Name":A_LoopFileName, "Path":A_LoopFileFullPath})
        }
}

for each,button in Buttons
{                                                                              ; Move through the Buttons object, one button at a time
        Buttonhwnd := RegExReplace(button.Name, "[^A-Z0-9]")                   ; Sanitising the button name for use as a Hwnd
        Gui Add, Button, % "+HWNDh" Buttonhwnd, % "Apply " button.Name " mod"  ; Adding the button to the GUI, with the Hwnd as an option
        ControlHandler := Func("FileActions").Bind(root, button)               ; Create Link from the button to the function we want
        GuiContro, +g, % h%Buttonhwnd%, % ControlHandler                       ; Update the button control to call the ControlHandler
}

Gui Show                                                                       ; Show the GUI with the folders as Buttons


return ; End of auto-execute


FileActions(Root, Button)
{
        if (HasFolder(Root "\3d Land", "Kaizo Mario 3D Land"))
                MsgBox Kaizo Mario 3D Land ist da
        if (HasFolder(Root "\3d Land", "Super Mario 3d Land Expedition"))
                MsgBox Super Mario 3d Land Expedition ist da
        if (HasFolder(Root "\NSMB", "NSMBNext The Lost Levels"))
                MsgBox NSMBNext The Lost Levels ist da
}

HasFolder(Root, Subfolder)
{
        Root := RTrim(Root, "\")
        if (!FileExist(Root)) {
                ErrorLevel := -1
                return
        }
        Subfolder := RTrim(Subfolder, "\")
        attributes := FileExist(Root "\" Subfolder)
        hasFolder := !!InStr(attributes, "D")
        ErrorLevel := !hasFolder
        return hasFolder
}