Dim sDateSettingParm As String ' Concat of input path, output drive and HLQ for hanging backup date on. All 3 are needed for uniqueness.
DebugLog "Starting."
bRunning = True
bExitReq = False ' Not exiting (Exit button has not been pressed)
pbarDone.Visible = False
If chkByDateOnly.Value = vbChecked Then bParmDateDifferential = True
If chkByDateTime.Value = vbChecked Then bParmDateTimeDifferential = True
If bParmInputPath Then ' If this is an automatic run
sSourceFolder = gsStartingSourceDir ' Use directory name from command$
Else
sSourceFolder = Dir1.List(Dir1.ListIndex) ' Use directory name from the directory listbox
End If
'Accept 2, 3, 4, 5 and 6 only
i = GetDriveType(Left(sSourceFolder, 3))
Select Case i
Case 2, 3, 4, 5, 6
'Nop
Case Else
DebugLog "Invalid drive selection for input drive."
Close
Unload Me
End
End Select
' Select Case GetDriveType(drive)
' Case 2
' getType = "Removable"
' Case 3
' getType = "Drive Fixed"
' Case 4
' getType = "Remote"
' Case 5
' getType = "Cd-Rom"
' Case 6
' getType = "Ram disk"
' Case Else
' getType = "Unrecognized"
' 'End Case Else
' End Select
If bParmOutputPath Then ' If this is an automatic run
sTargetDrive = gsOutputDriveLetter
Else
sTargetDrive = Left(Drive2.Drive, 1)
End If
'Accept 2, 3, 4 and 6 only
i = GetDriveType(Left(sTargetDrive & ":\", 3))
Select Case i
Case 2, 3, 4, 6
'Nop
Case Else
DebugLog "Invalid drive selection for output drive."
Close
Unload Me
End
End Select
gsBackupHiLvlName = Trim$(txtHLQ) ' Either user typed or input parms might have put something here.
If sTargetDrive = Left(sSourceFolder, 1) And Trim$(gsBackupHiLvlName) = "" Then
DebugLog "Cannot backup to same drive without entering a high level qualifier. Select another drive or enter a high level qualifier and try again.", True
If chkSimulate.Value = vbChecked Then bParmSimulate = True
bRunning = False
'Not that the run is finished, update the cutoff time for the next run.
If chkSimulate.Value = vbUnchecked And Not (bParmDateTimeDifferential) And Not (bParmDateDifferential) Then SaveSetting App.EXEName, "LastRunDate", sDateSettingParm, gsSaveStartTime
End Sub
Private Sub chkByDateOnly_Click()
If gbChkRunning Then Exit Sub
gbChkRunning = True
'chkByDateOnly.Value = vbChecked
chkByDateTime.Value = vbUnchecked
gbChkRunning = False
End Sub
Private Sub chkByDateTime_Click()
If gbChkRunning Then Exit Sub
gbChkRunning = True
'chkByDateTime.Value = vbChecked
chkByDateOnly.Value = vbUnchecked
gbChkRunning = False
End Sub
Private Sub chkForceFull_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
sbr.Panels(1).Text = "Force complete backup"
End Sub
Private Sub cmdExit_Click()
If Not bRunning Then
Close
Unload Me
End
Exit Sub
End If
bExitReq = True
End Sub
Private Sub cmdExit_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
sbr.Panels(1).Text = "Exit"
End Sub
Private Sub cmdHelp_Click()
frmAbout.Show
End Sub
Private Sub cmdScan_Click()
DriveProcess
End Sub
Private Sub cmdScan_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
sbr.Panels(1).Text = "Backup files from 'From' path to 'To' drive."
DebugLog "Input Parm -- This will be a forced full backup."
Else
DebugLog "Input Parm -- This will be a partial back of changed files since last run."
End If
If bParmSimulate Then
DebugLog "Input Parm -- This will be a simulation run, no data copying. Run date not udpated."
Else
DebugLog "Input Parm -- This will be a live run with data copying and run date will be updated."
End If
sTemp = Dir$(gsStartingSourceDir, vbDirectory)
If sTemp = "" Then
DebugLog "ERn
Enate.Enabled = Tru DoEventsll be a partial ba "Input parms found. Rackup: Enate.Enabled = Tru If Nr$(orce(orcial ba "Input parms found. Rarate 'id Sub
