Russ, Thank you very much for your reply. I had myself in a iterative
loop (my brain, not the code). I got it going this morning after
putting it down over night. Upon running the macro, I resave the file
the file if already saved, in both the current directory and on the
Flash drive. (for incremental saves) If it hasnt been saved yet, I save
a copy in either the Odd day backup folder or the even day folder after
removing all of the old files(so that the backup folders dont just grow
out of control). If you have any ideas, let me know...this is my first
attempt at VBA.

Sub newBackup()
'newBackup Macro

Dim strFileA As String
Dim strFileB As String
Dim strFlash As String
Dim strPathOdd As String
Dim strPathEven As String
Dim strPath As String
Dim strCurDir As String
Dim dFileDate As Date
Dim strExt As String
Dim sFile As String

'save the original document
ActiveDocument.Save
'Save original document name
strFileA = ActiveDocument.Name

'Flash drive filename, just keep filename, overwrite whats there from
previous backups
strFlash = "F:\" & strFileA

'Paths to odd/even folders
strPathOdd = "C:\Documents and Settings\Jim.DELL5150\My
Documents\MyOddBackups\"
strPathEven = "C:\Documents and Settings\Jim.DELL5150\My
Documents\MyEvenBackups\"

' Assign Backup to different folder every other day
If Even = (Day(Now) Mod 2) - 1 Then
strFileB = strPathOdd & (Format$(Date, "MMM d ")) & strFileA
Debug.Print strFileB
strPath = strPathOdd
Else
strFileB = strPathEven & (Format$(Date, "MMM d ")) & strFileA
strPath = strPathEven
End If
'save current directory, Dir command munges it
strCurDir = CurDir

'check to see if the file already exists, if not:
'save it after deleting all files older than 48 hours
'if it does, resave it immediately.

'Document extension, make sure we delete only .doc files
strExt = "*.doc"

If (Dir(strFileB) > "") Then
ActiveDocument.SaveAs FileName:=strFileB

Else
'go to backup directory, delete old *.doc files so that folder doesnt
get too big
ChDir (strPath)
sFile = Dir(CurDir() & "\" & strExt)
Do Until Len(sFile) = 0
   If DateDiff("h", FileDateTime(sFile), Date) > 48 Then
           Kill (strPath & sFile)
   End If
sFile = Dir()
Loop

'do save of even/odd day backup
ActiveDocument.SaveAs FileName:=strFileB
ChDir (strCurDir)
End If

'Close the document
ActiveDocument.Close

'Error handler for missing flash drive
On Error GoTo oops

'Copy source document to flash drive
FileCopy strFileA, strFlash

'reopen source document
Documents.Open strFileA

End

oops:
If Err.Number = 61 Then
MsgBox "USB Flash Drive is Full! Delete some stuff to make room!",
vbExclamation
Kill strFlash 'Remove the partial file
Else
MsgBox "The USB flash drive doesnt seem to be plugged in!",
vbExclamation
End If

'reopen source document
Documents.Open strFileA

End Sub