Atlanta Custom Software Development 

   Search        Code/Page

User Login



Forgot the Password?
» Web Development
» Maintenance
» Data Integration/BI
» Information Management
» Regular Expr Tester
» Free Tools

Copy Directory Content and All subfolders to target path

Total Hit ( 8222)

Rate this article:     Poor     Excellent 

 Submit Your Question/Comment about this article



This Code will copy all files and subfolders of specified source directory to target location

Click here to copy the following block
Sub CopyDirectory(ByVal SourcePath As String, ByVal DestPath As String, Optional ByVal Overwrite As Boolean = False)
    Dim SourceDir As DirectoryInfo = New DirectoryInfo(SourcePath)
    Dim DestDir As DirectoryInfo = New DirectoryInfo(DestPath)

    ' the source directory must exist, otherwise throw an exception
    If SourceDir.Exists Then
      ' if destination SubDir's parent SubDir does not exist throw an exception
      If Not DestDir.Parent.Exists Then
        Throw New DirectoryNotFoundException _
          ("Destination directory does not exist: " + DestDir.Parent.FullName)
      End If

      If Not DestDir.Exists Then
      End If

      ' copy all the files of the current directory
      Dim ChildFile As FileInfo
      For Each ChildFile In SourceDir.GetFiles()
        If Overwrite Then
          ChildFile.CopyTo(Path.Combine(DestDir.FullName, ChildFile.Name), True)
          ' if Overwrite = false, copy the file only if it does not exist
          ' this is done to avoid an IOException if a file already exists
          ' this way the other files can be copied anyway...
          If Not File.Exists(Path.Combine(DestDir.FullName, ChildFile.Name)) Then
            ChildFile.CopyTo(Path.Combine(DestDir.FullName, ChildFile.Name), False)
          End If
        End If

      ' copy all the sub-directories by recursively calling this same routine
      Dim SubDir As DirectoryInfo
      For Each SubDir In SourceDir.GetDirectories()
        CopyDirectory(SubDir.FullName, Path.Combine(DestDir.FullName, _
          SubDir.Name), Overwrite)
      Throw New DirectoryNotFoundException("Source directory does not exist: " + SourceDir.FullName)
    End If
  End Sub

Submitted By : Nayan Patel  (Member Since : 5/26/2004 12:23:06 PM)

Job Description : He is the moderator of this site and currently working as an independent consultant. He works with, SQL Server and other MS technologies. He is, MCDBA and MCSE. In his free time he likes to watch funny movies and doing oil painting.
View all (893) submissions by this author  (Birth Date : 7/14/1981 )

Home   |  Comment   |  Contact Us   |  Privacy Policy   |  Terms & Conditions   |  BlogsZappySys

© 2008 BinaryWorld LLC. All rights reserved.