Visual Basic

Jasey9 wrote:

Just a quick note - an array can be resized [Red faced] )

dim Arr(10) as string
redim Arr(100) (works, clearing array first)
redim preserve arr(100) works, preserving data...

Jasey9 wrote:

I was responding to the statement saying you can’t resize an array

Jasey9 wrote:

but to the end user, the array has been resized

Dim FileName As String = "filetocopy"

Try
    File.Copy(FileName, FileName & ".copy")

Catch ex As Exception
    My.Computer.FileSystem.WriteAllText("c:\log.txt", FileName & " - " & ex.Message, True)

End Try

Imports System.IO
Imports System.Security.Permissions




Public Class frmProfileCopier
    Dim SourcePath As String, DestPath As String, ExactPath As String
    Dim attributeReader As System.IO.FileAttributes
    Dim infoReader As System.IO.FileInfo


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOk.Click
        SourcePath = "C:\Documents and Settings\" & tbUserName.Text & "\"
        ExactPath = "UserData\" & tbUserName.Text & "\"
        DestPath = fbdDestDrive.SelectedPath & "\" & ExactPath
        CopyDirectory(SourcePath, DestPath)
        MessageBox.Show("copy done. Please see the exclusions.log for files that couldn't be copied", "Profile Copier")

    End Sub

    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        End
    End Sub
    Public Function CopyDirectory(ByVal Src As String, ByVal Dest As String, Optional _
  ByVal bQuiet As Boolean = False) As Boolean
        Try

        
            If Not Directory.Exists(Src) Then
                Throw New DirectoryNotFoundException("The directory " & Src & " does not exists")
            End If
            If Directory.Exists(Dest) AndAlso Not bQuiet Then
                If MessageBox.Show("directory " & Dest & " already exists." & vbCrLf & _
                "If you continue, any files with the same name will be overwritten", _
                "Continue?", MessageBoxButtons.OKCancel, MessageBoxIcon.Question, _
                MessageBoxDefaultButton.Button2) = DialogResult.Cancel Then Exit Function
            End If

            'add Directory Seperator Character (\) for the string concatenation shown later
            If Dest.Substring(Dest.Length - 1, 1) <> Path.DirectorySeparatorChar Then
                Dest += Path.DirectorySeparatorChar
            End If
            If Not Directory.Exists(Dest) Then Directory.CreateDirectory(Dest)
            Dim Files As String()
            Files = Directory.GetFileSystemEntries(Src)

            Dim element As String
            For Each element In Files
                If Directory.Exists(element) Then
                    'if the current FileSystemEntry is a directory,
                    'call this function recursively
                    CopyDirectory(element, Dest & Path.GetFileName(element), True)
                Else

                    File.Copy(element, Dest & Path.GetFileName(element), True)
                End If


            Next
        Catch ex As Exception
            Dim writer As New StreamWriter(Label1.Text & "exclusions.log", True, System.Text.Encoding.ASCII)
            writer.WriteLine(ex.Message)
            writer.Close()

        End Try

        Return True


    End Function



    Private Sub btnDestDrive_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDestDrive.Click
        fbdDestDrive.ShowDialog()
        Label1.Text = fbdDestDrive.SelectedPath & "UserData\" & tbUserName.Text & "\"
    End Sub


End Class