Help with Backup Script

[soze]

Trying to do an automatic backup when USB drive is plugged in, I'm using autorun to call the script but it doesn't seem to working.


Option Explicit
Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objShell: Set objShell = CreateObject("Wscript.Shell")
Dim colDrives: Set colDrives = objFSO.Drives
Dim drive
Dim drvbackup
Dim errReturn
For each drive in colDrives
If objFSO.FileExists(drive & "\Autobackup.cmd") Then
If Instr(1,drive,":\",1)>0 Then
drvBackup = drive
Exit For
ElseIf Instr(1,drive,":",1)>0 Then
drvBackup = drive & "\"
Exit For
Else
drvBackup = drive & ":\"
Exit For
End If
End If
Next
If drvBackup = "" Then
msgbox "Cannot locate Autobackup.cmd on any of the drives attached to this computer"
wscript.quit 3
Else
errReturn = objShell.Run("robocopy.exe C:\ " & drvBackup & "BackupFolder /E /V /NP /ZB /R:3 /W:1",1,1)
If errReturn <> 0 Then
msgbox "Backup completed with the following error: " & errReturn
Else
msgbox "Backup completed successfully!"
End If
End If
wscript.quit 0

[penfold_99]

hi,

I'm trying to follow what your trying to do, but i think your going about it a bit backwards.

You can find out was the driver letter the script is being run from using this.

drive = objFSO.GetDriveName(Wscript.ScriptFullName)

The instead of shelling out to robo copy, you can use

objFSO.CopyFolder locationA locationB

is the script running or erroring out?

[soze]

I'm trying to run an automatic backup, I have a external USB drive that has an autorun file that calls this script. I'm trying to copy the entire C:\ to the USB drive to a folder named, Backup Folder

It errors out, Line 29 Char. 5

hi,

I'm trying to follow what your trying to do, but i think your going about it a bit backwards.

You can find out was the driver letter the script is being run from using this.

drive = objFSO.GetDriveName(Wscript.ScriptFullName)

The instead of shelling out to robo copy, you can use

objFSO.CopyFolder locationA locationB

is the script running or erroring out?

[srochford]

There's a lot of checking which I don't understand and just makes the logic harder to follow but I think you may have too many endifs :-)

this works to find the drive letter:

For each drive in colDrives
  If objFSO.FileExists(drive.driveLetter & ":\Autobackup.cmd") Then
    drvBackup=drive.driveLetter
    exit for
  end if
Next

and the rest of the code seems fine

[soze]

Thanks, I'm going to test it out. This was for a automatic backup of a external USB drive. I needed it to start backing up as soon as the drive is plugged in. I needed it to find the next available drive letter. I had made a small robocopy file but you have to assign a drive letter to the destination folder, only thing every user has different drive mappings so I needed the script to assign the drive letter and start the copy using the robocopy cmd.

Thx again,

There's a lot of checking which I don't understand and just makes the logic harder to follow but I think you may have too many endifs :-)

this works to find the drive letter:

For each drive in colDrives
  If objFSO.FileExists(drive.driveLetter & ":\Autobackup.cmd") Then
    drvBackup=drive.driveLetter
    exit for
  end if
Next

and the rest of the code seems fine

[Arthur]

Using a program like USB Detect and Launch might make it a bit easier since your script would just need to do the backup then.