Hi Brad,
Of course this can be done.
It's not too easy, because you have to run a recursive routine to get all
the subs and the files they contain.
I wrote several routines in an effort to use this concept to save .net
solutions in order to provide backup copies, which I now use all the time.
I won't bore you with all the details; instead, below is the code that
makes it happen, which I'm sure you'll be able to follow along and work
with:
Imports System.IO
Public Class Form1
Inherits System.Windows. Forms.Form
Public selectedsubs As New ArrayList()
Public subs2 As New ArrayList()
Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
Dim dirinfo As New DirectoryInfo(" c:\vsapps\")
For Each dirinfo In dirinfo.GetDire ctories()
solutionsbox.It ems.Add(dirinfo .Name)
Next
End Sub
Private Sub saveit_Click(By Val sender As System.Object, ByVal e As
System.EventArg s) Handles saveit.Click
Dim dirsys As Directory
Dim copytopath As String
Dim dirfullpath As String
Dim solselectionsar ray As String
Dim mdirectory As DirectoryInfo
Dim mfile As FileInfo
Dim dfile As File()
Dim destinationfile As String
Dim solutionsboxfp As New ArrayList()
Dim shortstring, stringfront As String
Dim i, j, startpos As Integer
Me.Cursor = Cursors.WaitCur sor
For Each solselectionsar ray In solutionsbox.Ch eckedItems
selectedsubs.Ad d("c:\vsapps\ " & solselectionsar ray)
Next
subs2.Clear()
For i = 0 To selectedsubs.Co unt - 1
mdirectory = New DirectoryInfo(s electedsubs(i))
listdirectories (mdirectory)
Next
For j = 0 To subs2.Count - 1
mdirectory = New DirectoryInfo(s ubs2(j))
startpos = InStrRev(mdirec tory.FullName, "\")
shortstring = Mid(mdirectory. FullName, startpos + 1)
stringfront = Mid(mdirectory. FullName, 11)
If dirsys.Exists(" c:\dotnetsource \" & stringfront) Then
Else
dirsys.CreateDi rectory("c:\dot netsource\" & stringfront)
End If
For Each mfile In mdirectory.GetF iles
destinationfile = "c:\dotnetsourc e\" & stringfront & "\" & mfile.Name
File.Copy(mfile .FullName, destinationfile , True)
Next
Next
Me.Cursor = Cursors.Default
Application.Exi t()
End Sub
Sub listdirectories (ByVal thedirectory As DirectoryInfo)
Dim tempdir As DirectoryInfo
subs2.Add(thedi rectory.FullNam e)
For Each tempdir In thedirectory.Ge tDirectories()
listdirectories (tempdir)
Next
End Sub
End Class
HTH,
Bernie Yaeger
"Brad" <an*******@disc ussions.microso ft.com> wrote in message
news:E6******** *************** ***********@mic rosoft.com...
I have been working on a class that moves files around and have come to a
need to move an entire directory at one time. I thought that this would be
really simple (some kind of CopyDirectory command) but no such luck. How can
you move a Folder/Directory in vb.net?
Thanks
Brad
