• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 352
  • Last Modified:

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.

0
solomonacquah
Asked:
solomonacquah
  • 2
  • 2
1 Solution
 
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
 
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
 
solomonacquahAuthor Commented:
Perfect. Thank You Very Much.
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now