hello Scorpion ...
this was Gregs example
Option Strict On
Imports System.IO
Imports System.Configur ation
Module Module1
Sub Main()
Dim Source As String = ConfigurationSe ttings.AppSetti ngs("source")
Dim Dest As String = ConfigurationSe ttings.AppSetti ngs("destinatio n") & "\"
& Year(Today) & Right("0" & Month(Today), 2) & Right("0" & Day(Today), 2)
Directory.Creat eDirectory(Dest )
'get the log file name
Dim logFileName As String = Dest & "\trace.log "
'open the log file
Dim fileLog As StreamWriter = File.CreateText (logFileName)
'define the log file trace listener
Dim logListener As TextWriterTrace Listener = New
TextWriterTrace Listener(fileLo g)
'add the new trace listener to the collection of listeners
Trace.Listeners .Add(logListene r)
Dim consoleListener As MyTrace = New MyTrace
Trace.Listeners .Add(consoleLis tener)
'make sure that we actually write the data out
Trace.AutoFlush = True
RecursiveCopyFi les(Source, Dest, True)
Trace.WriteLine ("Finished." )
' Flush and close the output stream.
fileLog.Flush()
fileLog.Close()
System.Environm ent.ExitCode = 0
End Sub
' Recursively copy all files and subdirectories from the
' specified source to the specified destination.
Private Function RecursiveCopyFi les( _
ByVal sourceDir As String, _
ByVal destDir As String, _
ByVal bTop As Boolean) As Boolean
Dim aDirs() As String
Dim aFiles() As String
Dim ok As Boolean = True
Trace.WriteLine ("Inspecting folder " & sourceDir)
Try
' Get a list of directories from the current parent.
aDirs = System.IO.Direc tory.GetDirecto ries(sourceDir)
For Each folderpath As String In aDirs
Dim sDir As String
' Get the path of the source directory.
sDir = System.IO.Path. GetFileName(fol derpath)
' Create the new directory in the destination directory.
System.IO.Direc tory.CreateDire ctory(System.IO .Path.Combine(d estDir, sDir))
' Since we are in recursive mode, copy the children also
ok = RecursiveCopyFi les(folderpath, System.IO.Path. Combine(destDir , sDir),
False)
If ok Then
Try
Trace.WriteLine ("Deleting " & destDir & sDir)
System.IO.Direc tory.Delete(des tDir & sDir)
Catch ex As Exception
Trace.WriteLine ("Error deleting " & destDir & sDir)
Trace.WriteLine (ex.Message)
ok = False
End Try
End If
Next
Catch ex As Exception
Trace.WriteLine ("Error reading directory " & sourceDir)
End Try
' Get the files from the current parent.
aFiles = System.IO.Direc tory.GetFiles(s ourceDir)
' Copy all files.
For Each filepath As String In aFiles
Dim sFile As String
' Get the full path of the source file.
sFile = System.IO.Path. GetFileName(fil epath)
Try
' Copy the file.
Trace.WriteLine ("Copying " & filepath)
System.IO.File. Copy(filepath, System.IO.Path. Combine(destDir , sFile))
Try
' Delete the file.
Trace.WriteLine ("Deleting " & filepath)
System.IO.File. Delete(filepath )
Catch ex As Exception
Trace.WriteLine ("Error deleting " & filepath)
Trace.WriteLine (ex.Message)
ok = False
End Try
Catch ex As Exception
Trace.WriteLine ("Error copying " & filepath)
Trace.WriteLine (ex.Message)
ok = False
End Try
Next
If Not bTop Then
Try
Trace.WriteLine ("Deleting folder " & sourceDir)
System.IO.Direc tory.Delete(sou rceDir)
Catch ex As Exception
Trace.WriteLine ("Error deleting folder " & sourceDir)
Trace.WriteLine (ex.Message)
ok = False
End Try
End If
End Function
End Module
' disallow inheriting this class
Public NotInheritable Class MyTrace
Inherits TraceListener
' disallow instantiation
Public Sub New()
MyBase.New()
End Sub
<Conditional("T RACE")> _
Public Overloads Overrides Sub Write(ByVal message As String)
Console.Write(m essage)
End Sub
<Conditional("T RACE")> _
Public Overloads Overrides Sub WriteLine(ByVal message As String)
Console.WriteLi ne(message)
End Sub
End Class
And this was mine in case you missed it
Public Sub CopyDir(ByVal Src As String, ByVal Dst As String)
Dim Files() As String, Element As String
If Microsoft.Visua lBasic.Right(Ds t, Dst.Length - 1) <>
Path.DirectoryS eparatorChar Then
Dst &= Path.DirectoryS eparatorChar
End If
If Not Directory.Exist s(Dst) Then Directory.Creat eDirectory(Dst)
Files = Directory.GetFi leSystemEntries (Src)
For Each Element In Files
If Directory.Exist s(Element) Then
CopyDir(Element , Dst & Path.GetFileNam e(Element))
Else
File.Copy(Eleme nt, Dst & Path.GetFileNam e(Element), True)
End If
Next Element
End Sub
the above code works in Both VS.Net 2003 and in VS.net 2005 ( maybe also in
previous versions but uhhmm don`t have that on my comp anymore )
however as Herfried already suggested you can use in VS.Net 2005
My.Computer.Fil eSystem.CopyDir ectory()
regards
Michel Posseth [MCP]
"scorpion53 061" <sc************ @nospamhereyaho o.com> wrote in message
news:OF******** ******@TK2MSFTN GP15.phx.gbl...
Greg,
Could you post your sample as a zip or text? Email reader wont let me
download your file....
Thanks,
Kelly
"Greg Burns" <bl*******@news groups.nospam> wrote in message
news:Oo******** *****@TK2MSFTNG P11.phx.gbl..." **Developer**" <RE************ *@a-znet.com> wrote in message
news:uM****** ********@TK2MSF TNGP15.phx.gbl. .. Great on two accounts:
1) Answers my question: No there isn't an easy way!
2) Gives me a general solution that I can use.
Thanks a lot
I prefer the recursive code method, rather than some of the other methods
suggested, soley because of the my need to log errors when individual
files failed to copy.
The best solution (or easiest) really depends on your specific needs.
BTW, my code is moving a folder (and subfolders/files) from one location
to another Hence, the delete stuff. Modify as needed.
Greg
