VBS Backup Script

[pimpcat]

Hi guys i was wondering if you could help

Im looking to make a VBS backup script that would allow me to run a sheduled task and backup specific files from the C Drive to a network path. i would also like the script to check the target path and update existing backed up files if they are a week or older.

I would like to backup the folder C:\Winner\Projects but only the .prj files that are stored in this folder to \\NetworkName\Backup

How would i go about this as every script i look at seems to be different.

[jmcilhinney]

The VB.NET forum is not the place to ask VBScript questions. The best place for VBScript questions is the forum with VBScript in the name. I've already asked the mods to move this thread.

[RobDog888]

Thread Moved

[mbutler755]

Is there any particular reason why you want to use VBS? I created a small program that runs as part of a scheduled task. It ZIPs up a dated sub-directory and then send it via FTP to a server at our corporate office. Either way, it should give you some ideas.

Imports System
Imports System.IO
Imports System.Web
Imports System.Net
Imports System.Net.WebClient
Imports System.Net.Configuration
 
Module Module1
 
    Sub Main()
        Dim date1 As New Date(2008, 8, 29, 19, 27, 15, 18)  '
        Dim date2 As String                                 'Sets date to string
        date1 = Now()                                       'Sets date1 to now()
        date1 = DateAdd(DateInterval.Day, -1, date1)        'Subtracts one day
        date2 = (date1.ToString("yyyyMMdd"))                'Puts date in Aloha dated sub format
 
        Dim StoreID As String
        StoreID = My.Computer.FileSystem.ReadAllText("D:\VBS-AUTOCOPY\STOREID.INI")                 'checks storeid.ini for store id
        Console.WriteLine("Store ID: " & StoreID)                                                   'writes out store id
 
        For Each filetdx As String In IO.Directory.GetFiles("D:\Aloha\" & date2 & "\", "*.TDX")     'deletes tdx files
            IO.File.Delete(filetdx)
        Next
        Console.WriteLine("Deleting TDX files.")
 
        For Each filecdx As String In IO.Directory.GetFiles("D:\Aloha\" & date2 & "\", "*.CDX")     'deletes cdx files
            IO.File.Delete(filecdx)
        Next
        Console.WriteLine("Deleting CDX files.")
 
        My.Computer.FileSystem.CreateDirectory("D:\XFER\" & date2)                                  'creates a directory for xfer
        Console.WriteLine("Created dated sub-dir for transfer.")
        Try
            My.Computer.FileSystem.CopyFile("D:\Aloha\EDC\FIFTH THIRD PROCESSING SOLUTIONS\" & date2 & ".stl", "D:\xfer\" & date2 & "\" & date2 & ".STL") 'copies STL file to Aloha dated-sub
            My.Computer.FileSystem.CopyFile("D:\Aloha\EDC\edc.ini", "D:\xfer\" & date2 & "\EDC.INI") 'copies edc.ini to dated-sub
            Console.WriteLine("Copied settlement file.")
            Console.WriteLine("Copied EDC.INI")
        Catch ex As Exception
            Console.WriteLine("Copying of settlement file/EDC.INI failed.")
        End Try
        My.Computer.FileSystem.CopyDirectory("D:\aloha\" & date2, "D:\xfer\" & date2) 'copies all files to xfer dir
        Console.WriteLine("Copied files to transfer directory successfully.")
        Try
            Dim NewZip As New ICSharpCode.SharpZipLib.Zip.FastZip                       'zips up files
            NewZip.CreateZip("D:\xfer\" & date2 & ".zip", "D:\xfer\" & date2, False, Nothing, Nothing)
            Console.WriteLine("ZIP file created successfully.")
        Catch ex As Exception
            Console.WriteLine("ZIP file creation failed.")
            MsgBox("ZIP File Creation Error! Call the Briad Helpdesk 602-567-5050", MsgBoxStyle.Critical)
        End Try
        Try
            Console.WriteLine("Starting FTP transfer.")
            Dim uriString As String = "ftp://10.100.1.80/" & StoreID & "/" & date2 & ".ZIP"
            Dim myWebClient As New WebClient()
            Dim DatedSub As String = "D:\XFER\" & date2 & ".ZIP"
            Dim responseArray As Byte() = myWebClient.UploadFile(uriString, DatedSub)
            Console.WriteLine("Upload completed successfully.")
        Catch ex As Exception
            Console.WriteLine("An error has occured while uploading the file.")
            Console.WriteLine("No garbage collection has been performed.")
            MsgBox("Please call the Helpdesk immediately! Upload failed.", MsgBoxStyle.Critical)
        End Try
        Try
            Dim DirectoryToDelete2 As String
            DirectoryToDelete2 = "d:\xfer\" & date2
            If System.IO.Directory.Exists(DirectoryToDelete2) = True Then
                System.IO.Directory.Delete(DirectoryToDelete2, True)
                Console.WriteLine("Performing cleanup.")
                Console.WriteLine("Backup folder delted.")
            Else
                If System.IO.Directory.Exists(DirectoryToDelete2) = False Then
                    Console.WriteLine("Could not find backup directory in D:\XFER.")
                End If
            End If
            My.Computer.FileSystem.DeleteFile("d:\xfer\" & date2 & ".ZIP", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)
            Console.WriteLine("Deleted transferred file.")
            Console.WriteLine("Backup complete.")
        Catch ex As Exception
            Console.WriteLine("Garbage collection failed.")
            Console.WriteLine("End of program.")
        End Try
    End Sub
 
End Module

Hi guys i was wondering if you could help

Im looking to make a VBS backup script that would allow me to run a sheduled task and backup specific files from the C Drive to a network path. i would also like the script to check the target path and update existing backed up files if they are a week or older.

I would like to backup the folder C:\Winner\Projects but only the .prj files that are stored in this folder to \\NetworkName\Backup

How would i go about this as every script i look at seems to be different.