Unhandled Exception Error

Dim startPath1 As String = "D:\Bootdrv\AlohaQs\DATA\" ' Setting the DATA Folder For Zipping
        Dim startPath2 As String = "D:\Bootdrv\AlohaQs\NEWDATA\" ' Setting the NEWDATA Folder for Zipping
        Dim zipPath1 As String = "D:\Bootdrv\AlohaQs\WILL_DATA.zip" ' Nameing the Backup ZIP
        Dim zipPath2 As String = "D:\Bootdrv\AlohaQs\WILL_NEWDATA.ZIP" 'Nameing the Back up ZIP
        Dim objCurrentDate As Date ' Setting todays Date
        Dim obj2Weeksago As Date ' Decalring 2 weeks ago as date
        Dim objDataFileDate ' Declaring the file directory
        Dim objDateYear As Date ' Declaring the Year & Month
        Dim strDate As String
        Dim strDate1 As String
        strDate = obj2Weeksago.ToString("yyyyMMdd")
        strDate1 = objDateYear.ToString("yyyyMMdd")
        objCurrentDate = Now
        objDateYear = objCurrentDate
        obj2Weeksago = objCurrentDate.AddDays(-14) ' - 14 days from todays current date
        objDataFileDate = Directory.GetCreationTime("D:\Bootdrv\AlohaQS\" & strDate1)  ' Get date and time of directory
       

Select allOpen in new window

It put it in the correct format but did not find the correct date. it grabbed a 00011001 for the date. Any ideas ?

That was it its now zipping up the correct file. Thanks again now just some more tweaking!!!

Would there be a better way of continuing on from - 14 days to up to -44 Days with out making a line for each one ?

change the signed integer -14 to a variable and use a loop

int days = -14
do while days > -44
objDate = objCurrentDate.AddDays(days) 
strDatex = objDate.ToString("yyyyMMdd")
' more code
days = days -1
loop

Select allOpen in new window

See the end of this message for details on invoking
just-in-time (JIT) debugging instead of this dialog box.

************** Exception Text **************
System.ArgumentOutOfRangeException: The added or subtracted value results in an un-representable DateTime.
Parameter name: value
   at System.DateTime.AddTicks(Int64 value)
   at System.DateTime.Add(Double value, Int32 scale)
   at CDMFtp.Form1.Form1_Load(Object sender, EventArgs e) in C:\Users\Frank\Documents\Visual Studio 2013\Projects\CDMFtp\CDMFtp\Form1.vb:line 20
   at System.EventHandler.Invoke(Object sender, EventArgs e)


Getting this now. No compile error as well again

Imports System.IO.Compression ' Declaring refrences
Imports System.IO ' Declaring refrences
Imports System.Web
Imports System.Net.Mail

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim startPath1 As String = "D:\Bootdrv\AlohaQs\DATA\" ' Setting the DATA Folder For Zipping
        Dim startPath2 As String = "D:\Bootdrv\AlohaQs\NEWDATA\" ' Setting the NEWDATA Folder for Zipping
        Dim zipPath1 As String = "D:\Bootdrv\AlohaQs\WILL_DATA.zip" ' Nameing the Backup ZIP
        Dim zipPath2 As String = "D:\Bootdrv\AlohaQs\WILL_NEWDATA.ZIP" 'Nameing the Back up ZIP
        Dim objCurrentDate As Date ' Setting todays Date
        Dim objDataFileDate ' Declaring the file directory
        Dim intDays As Integer
        Dim objDate As Date
        Dim strDatex As String
        Dim myFTPaddress As String = "ftp://" ' ftp server
        Dim myFTPuserName As String = "username" ' ftp username
        Dim myFTPuserPassword As String = "pw" 'ftp password
        intDays = -14
        Do While intDays >= -44
            objDate = objCurrentDate.AddDays(intDays) ' add days up to - 30 days
            strDatex = objDate.ToString("yyyyMMdd") ' format date
            objDataFileDate = Directory.GetCreationTime("D:Bootdrv\AlohaQS\" & strDatex)
            Dim startPath4 As String = ("D:\Bootdrv\AlohaQS\" & strDatex)
            Dim zipPath3 As String = ("D:\Bootdrv\AlohaQS\" & strDatex)
            ZipFile.CreateFromDirectory(startPath4, zipPath3)
            Dim myFiles() As String = {"D:\Bootdrv\AlohaQS\" & strDatex}  '// files for Uploading
            For Each mySelectedFile As String In myFiles '// loop thru your files.
                My.Computer.Network.UploadFile(mySelectedFile, myFTPaddress, myFTPuserName, myFTPuserPassword)
            Next
            MessageBox.Show("The upload was successfull!!!")
            Dim strDebout1 As StreamWriter
            strDebout1 = File.CreateText("D:\Bootdrv\AlohaQS\TMP\FTPBACKUPDebout.txt")
            strDebout1.Write("FTP Back Up Successfull")
            strDebout1.Close()
            intDays = intDays - 1
        Loop
        ZipFile.CreateFromDirectory(startPath1, zipPath1)
        ZipFile.CreateFromDirectory(startPath2, zipPath2)
        Dim myFiles1 As String = ("D:\Bootdrv\Alohaqs\WILL_DATA.ZIP, D:\Bootdrv\Alohaqs\WILL_NEWDATA.ZIP")
        For Each mySelectedFile As String In myFiles1 '// loop thru your files.
            My.Computer.Network.UploadFile(mySelectedFile, myFTPaddress, myFTPuserName, myFTPuserPassword)
        Next
        Dim strDebout As StreamWriter
        strDebout = File.CreateText("D:\Bootdrv\AlohaQS\TMP\FTPBACKUPDebout.txt")
        strDebout.Write("FTP Back Up Successfull")
        strDebout.Close()

    End Sub
End Class

Select allOpen in new window