josh is a fucking nazi

Dim saveName
saveName = InputBox("Please enter the save file name", "Auto Backup")

Dim userName
userName = CreateObject("WScript.Network").UserName

Dim pathOfSave
pathOfSave = ("C:\Users\"&userName&"\Documents\Paradox Interactive\Europa Universalis IV\save games\"&saveName&".eu4")

If pathOfSave = "" Then
    Wscript.Quit
End If

Dim backupLoc
backupLoc = ("C:\Users\"&userName&"\Documents\Paradox Interactive\Europa Universalis IV\save games\backup\"&saveName&"\")

Dim n
Do
    For n = 1 To 20
        Dim fileSys
        Set fileSys = CreateObject("Scripting.FileSystemObject")
        fileSys.CopyFile pathOfSave, (backupLoc&saveName&n)
        WScript.Sleep 300000
    Next
Loop