Excel Forum

Code: Select all

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim sourceDir As String = "D:\current"
        Dim backupDir As String = "D:\archives\"
        Dim wr As StreamWriter = File.AppendText(backupDir & "total" & ".txt")

        Try
            Dim txtList As String() = Directory.GetFiles(sourceDir, "*.txt")
            For Each f As String In txtList
                Dim fName As String = f.Substring(sourceDir.Length + 1)
                Try
                    File.Copy(Path.Combine(sourceDir, fName), Path.Combine(backupDir, fName))
                    wr.WriteLine("backupDir.ToString")
                Catch copyError As IOException
                    Console.WriteLine(copyError.Message)
                End Try
            Next

        Catch dirNotFound As DirectoryNotFoundException
            Console.WriteLine(dirNotFound.Message)
        End Try
        wr.WriteLine("backupDir.ToString")
        wr.Close()
    End Sub