OnlineKnowledgeRepository


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!
Search
 
 

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 vb.net
Tue Aug 14, 2012 9:56 am by neuron

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

Navigation
 Portal
 Index
 Memberlist
 Profile
 FAQ
 Search
Help
Please support me my registering to NEOBUX
advertisements
Affiliates
free forum
 



Share | 
 

 Copy from 1 folder to another in VB.NET

View previous topic View next topic Go down 
AuthorMessage
neuron
Administrator
Administrator
avatar

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..

Code:

    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!!")
            End
        Else
            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)
            Else
                'the current FileSystemEntry is a file so just copy it
                File.Copy(element, Dest & Path.GetFileName(element), True)
            End If
        Next
        Return True
    End Function


or you can try this one

Code:


        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 http://myonlinekr.forumotion.com
 
Copy from 1 folder to another in VB.NET
View previous topic View next topic Back to top 
Page 1 of 1
 Similar topics
-
» Certified True Copy
» Obelisk" published a copy of the draft budget law for 2015
» BID DOCUMENTS IN A SOFT COPY FORM
» (136472) Makemake
» receipt of surety bond

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