Replace the line: ExitCode = Backup ("""C:\Program Files\Macrium\Reflect\reflect.exe"" -e -w ""c:\users\nick\documents\reflect\Image to E.xml""") With the following lines: If DoesDirExist("E:\") = true Then ExitCode = Backup ("""C:\Program Files\Macrium\Reflect\reflect.exe"" -e -w ""c:\users\nick\documents\reflect\Image to E.xml""") Else ExitCode = Backup ("""C:\Program Files\Macrium\Reflect\reflect.exe"" -e -w ""c:\users\nick\documents\reflect\Image to F.xml""") End If Note: Replace XML path and file names with the correct names for your scenario. At the end of the VBScript source paste the following lines: Function DoesDirExist(byVal pathname) Dim objFSO Set objFSO = CreateObject("Scripting.FileSystemObject") DoesDirExist = objFSO.FolderExists(pathname) Set objFSO = Nothing End Function