I ended up mapping a drive like OHM recommended. Here is some code from a
console app of mine to get you started... (it also creates a trace file to
let you know when something goes wrong)
HTH,
Greg
------------------------------------------
Option Strict On
Imports System.IO
Module Module1
Sub Main()
Dim Source As String = "Z:\ilc\temp"
Dim Dest As String = "N:\temp\" & Year(Today) & Right("0" &
Month(Today), 2) & Right("0" & Day(Today), 2)
System.IO.Directory.CreateDirectory(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 TextWriterTraceListener = New
TextWriterTraceListener(fileLog)
'add the new trace listener to the collection of listeners
Trace.Listeners.Add(logListener)
Dim consoleListener As MyTrace = New MyTrace
Trace.Listeners.Add(consoleListener)
'make sure that we actually write the data out
Trace.AutoFlush = True
RecursiveCopyFiles(Source, Dest, True)
Trace.WriteLine("Finished.")
logListener.Flush()
logListener.Close()
System.Environment.ExitCode = 0
End Sub
' Recursively copy all files and subdirectories from the
' specified source to the specified destination.
Private Function RecursiveCopyFiles( _
ByVal sourceDir As String, _
ByVal destDir As String, _
ByVal bTop As Boolean) As Boolean
Dim i As Integer
Dim posSep As Integer
Dim sDir As String
Dim aDirs() As String
Dim sFile As String
Dim aFiles() As String
Dim ok As Boolean = True
' Add trailing separators to the supplied paths if they don't exist.
If Not
sourceDir.EndsWith(System.IO.Path.DirectorySeparat orChar.ToString()) Then
sourceDir &= System.IO.Path.DirectorySeparatorChar
End If
If Not
destDir.EndsWith(System.IO.Path.DirectorySeparator Char.ToString()) Then
destDir &= System.IO.Path.DirectorySeparatorChar
End If
Trace.WriteLine("Inspecting folder " & sourceDir)
Try
' Get a list of directories from the current parent.
aDirs = System.IO.Directory.GetDirectories(sourceDir)
For i = 0 To aDirs.GetUpperBound(0)
' Get the position of the last separator in the current
path.
posSep = aDirs(i).LastIndexOf("\")
' Get the path of the source directory.
sDir = aDirs(i).Substring((posSep + 1), aDirs(i).Length -
(posSep + 1))
' Create the new directory in the destination directory.
System.IO.Directory.CreateDirectory(destDir + sDir)
' Since we are in recursive mode, copy the children also
ok = True
ok = RecursiveCopyFiles(aDirs(i), (destDir + sDir), False)
If ok Then
Try
Trace.WriteLine("Deleting " & destDir + sDir)
System.IO.Directory.Delete(destDir + 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.Directory.GetFiles(sourceDir)
' Copy all files.
For i = 0 To aFiles.GetUpperBound(0)
' Get the position of the trailing separator.
posSep = aFiles(i).LastIndexOf("\")
' Get the full path of the source file.
sFile = aFiles(i).Substring((posSep + 1), aFiles(i).Length -
(posSep + 1))
Try
' Copy the file.
Trace.WriteLine("Copying " & aFiles(i))
System.IO.File.Copy(aFiles(i), destDir + sFile)
Try
' Delete the file.
Trace.WriteLine("Deleting " & aFiles(i))
System.IO.File.Delete(aFiles(i))
Catch ex As Exception
Trace.WriteLine("Error deleting " & aFiles(i))
Trace.WriteLine(ex.Message)
ok = False
End Try
Catch ex As Exception
Trace.WriteLine("Error copying " & aFiles(i))
Trace.WriteLine(ex.Message)
ok = False
End Try
Next i
If Not bTop Then
Try
Trace.WriteLine("Deleting folder " & sourceDir)
System.IO.Directory.Delete(sourceDir)
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("TRACE")> _
Public Overloads Overrides Sub Write(ByVal message As String)
Console.Write(message)
End Sub
<Conditional("TRACE")> _
Public Overloads Overrides Sub WriteLine(ByVal message As String)
Console.WriteLine(message)
End Sub
End Class
"Karel" <ka***********@informat.be> wrote in message
news:68**************************@posting.google.c om...
Hello,
I have a VB.NET application where I want to move directories over a
network.
I tried this with system.io.directory.move, but that doesn't work over
different volumes.
Has anyone a sollution for this problem?
thx
Karel
