Copy a File or Folder to Multiple machines using Vb.net

Is it possible to copy a folder or file to multiple machines using vb.net.

LVL 4
solomonacquahAsked:
Who is Participating?
 
Bob LearnedCommented:
If you want to do it that way, than change it like this:

Private Sub CopyFolder(ByVal sourcePath As String, ByVal ParamArray listTargets As String())

    Dim folder As New IO.DirectoryInfo(sourcePath)

    For Each file As IO.FileInfo In folder.GetFiles()
      For Each targetPath As String In listTargets
        Dim targetFile As String = IO.Path.Combine(targetPath, file.Name)
        file.CopyTo(targetFile)
      Next targetPath
    Next file

  End Sub

Usage:
  CopyFolder("c:\temp", "\\server1\share1\folder", "\\server2\share2\folder", "\\server3\share1\folder")

Bob
0
 
Bob LearnedCommented:
1) Copy file:

   IO.File.Copy(sourceFile, targetFile)

2) Copy folder example:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    CopyFolder("c:\temp", "\\server\name")

  End Sub

  Private Sub CopyFolder(ByVal sourcePath As String, ByVal targetPath As String)

    Dim folder As New IO.DirectoryInfo(sourcePath)

    For Each file As IO.FileInfo In folder.GetFiles()
      Dim targetFile As String = IO.Path.Combine(targetPath, file.Name)
      file.CopyTo(targetFile)

    Next

  End Sub

Bob
0
 
solomonacquahAuthor Commented:
If I wanted to do mutliple machines at once could I do

CopyFolder("c:\temp", "\\server\name, \\servername\name, \\servername, name")
0
 
solomonacquahAuthor Commented:
Perfect. Thank You Very Much.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.