Conditional Copy VBS

' Reference <http://www.visualbasicscript.com/tm.aspx?high=&m=94260&mpage=1#94272>
Dim net : Set net = CreateObject("WScript.Network")
Dim filesys : Set filesys = CreateObject("Scripting.FileSystemObject")

If filesys.FolderExists("g:\") Then
    Dim objFSO, objFolder, objShell, strDirectory
    strDirectory = "g:\savedgames"
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    If objFSO.FolderExists(strDirectory) Then
        Set objFolder = objFSO.GetFolder(strDirectory)
    Else
        Set objFolder = objFSO.CreateFolder(strDirectory)
    End If
Else
    strDirectory = "C:\Users\" & net.UserName & "\Desktop\savedgames"
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    If objFSO.FolderExists(strDirectory) Then
        Set objFolder = objFSO.GetFolder(strDirectory)
    Else
        Set objFolder = objFSO.CreateFolder(strDirectory)
    End If
End If

If filesys.FolderExists("C:\Users\" & net.UserName & "\AppData\Roaming\Macromedia\Flash Player\#SharedObjects\87V4ZJLP\dl.dropbox.com\u\12616360") Then
    If filesys.FolderExists("g:\") Then
        filesys.CopyFolder "C:\Users\" & net.UserName & "\AppData\Roaming\Macromedia\Flash Player\#SharedObjects\87V4ZJLP\dl.dropbox.com\u\12616360", "g:\savedgames\"
    Else
        filesys.CopyFolder "C:\Users\" & net.UserName & "\AppData\Roaming\Macromedia\Flash Player\#SharedObjects\87V4ZJLP\dl.dropbox.com\u\12616360", "C:\Users\" & net.UserName & "\Desktop\savedgames"
    End If
End If

If filesys.FolderExists("C:\Users\Niels\AppData\Roaming\Rovio\Angry Birds") Then
    If filesys.FolderExists("g:\") Then
        filesys.CopyFolder "C:\Users\Niels\AppData\Roaming\Rovio", "g:\savedgames\"
    Else
        filesys.CopyFolder "C:\Users\Niels\AppData\Roaming\Rovio", "C:\Users\" & net.UserName & "\Desktop\savedgames"
    End If
End If