csvoid copyDirectory (string sourcePath, string destinationPath) {foreach (string filestr in System.IO.Directory.GetFiles (sourcePath)) {if (! System.IO.Directory.Exists (destinationPath)) System.IO.Directory.CreateDirectory (destinationPath ); System.io.file.copy (filestr, destinationPath // " system.io.path.GetFileName (filestr), true);} if (system.io.directory.getdirector (SourcePath) .length> 0 ) {foreach (string dirstr in System.IO.Directory.GetDirectories (sourcePath)) {string desdir = destinationPath "//" System.IO.Path.GetFileName (dirstr); copyDirectory (dirstr, desdir); if (! System.IO.Directory.Exists (desdir)) System.IO.Directory.CreateDirectory (desdir);}}} vbSub copyDirectory (ByVal sourcePath As String, ByVal destinationPath As String) Dim filestr As String For Each filestr In System.IO. Directory.Getfiles (SourcePath) if not system.io.directory.Exists (destinationPath) Then system.io.directory.createdIRectory (DestinationPath) End IF system.io.file.copy (filestr, destinationPath & "/" & system.io.path.getFileName (filestr), true) Next if system.io.directory.getdirectories (SourcePath) .length> 0 THEN DIRSTR AS String For Each dirstr In System.IO.Directory.GetDirectories (sourcePath) Dim desdir As String = destinationPath & "/" & System.IO.Path.GetFileName (dirstr) copyDirectory (dirstr, desdir) If Not System.IO.Directory. Exists (Desdir) Then System.io.directory.createdIRectory (Desdir) End If Next End End Sub
