For Questions and Assistance please use the proper Category.. please..
HomeCalendarFAQSearchMemberlistUsergroupsRegisterLog in
Welcome guys!!.. In order for you guys to post your Questions and assistance requests,, please REGISTER first.. Only members can post.. If you have requests then feel free to email ADMIN neuron or SPAMMER onatzky.. thanks!

Display results as :
Rechercher Advanced Search
Donation box
Latest topics
» Convert signed ZD to PD
Thu Sep 01, 2016 7:57 pm by neuron

» Abia State Polytechnic Admission form for 2013/2014 out!
Tue Oct 08, 2013 9:30 am by stevejoo

» Convert ZD to SIGNED PD
Sun Sep 08, 2013 9:22 pm by neuron

» How to Speed Up My PC
Tue Feb 26, 2013 9:15 am by alphysudaria143

» Hi I'm alphysudaria143
Sun Feb 17, 2013 12:25 am by alphysudaria143

» How to Copy all the Generations of a GDG
Thu Oct 11, 2012 8:30 am by neuron

» Remove Duplicates in a dataset though Sort
Thu Oct 11, 2012 8:23 am by neuron

» how to insert data into your access database
Tue Aug 14, 2012 9:56 am by neuron

» how to populate combobox in during form load
Tue Aug 14, 2012 9:53 am by neuron

Please support me my registering to NEOBUX
free forum

Share | 

 Copy from 1 folder to another in VB.NET

Go down 

Posts : 38
Join date : 2009-08-06

PostSubject: Copy from 1 folder to another in VB.NET   Thu Aug 06, 2009 11:47 pm

Sample code to copy from one folder to another regardless of file location within the network..


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If CopyDirectory("L:\XXXXX,TXT", "C:\XXXXX.TXT") Then
            MessageBox.Show("Copied successfully!!")
            MessageBox.Show("Error copying directory")
        End If
    End Sub

Public Function CopyDirectory(ByVal Src As String, ByVal Dest As String, Optional _
  ByVal bQuiet As Boolean = False) As Boolean
        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)
                'the current FileSystemEntry is a file so just copy it
                File.Copy(element, Dest & Path.GetFileName(element), True)
            End If
        Return True
    End Function

or you can try this one


        Dim appath As String
        Dim FileToCopy As String
        Dim NewCopy As String
        Dim DateString As String = Format(Now, "yyyy-MMM-d-hhmmss")

        appath = Application.StartupPath()

        FileToCopy = appath & "\SISdatabase.mdb"
        NewCopy = "C:\SISdatabase-" & DateString & ".mdb"

        If System.IO.File.Exists(FileToCopy) = True Then
            System.IO.File.Copy(FileToCopy, NewCopy)
            MsgBox("File Copied at " & NewCopy)
        End If

credit goes to the original uploader of the codes..

In this forum we will share the knowledge we have to every single individual who shows respect and interest.. If you stay.. you learn.. if not.. then please go.........

--it's me Admin"D"
Back to top Go down
View user profile
Copy from 1 folder to another in VB.NET
Back to top 
Page 1 of 1
 Similar topics
» (136472) Makemake
» receipt of surety bond
» Arabic fonts and Calligraphy
» Green stuff for your head
» Authentic copies of the original

Permissions in this forum:You cannot reply to topics in this forum
OnlineKnowledgeRepository :: All About PC :: Programming :: VB.NET-
Jump to: