File copy to directory when dir name is not available

Question

Hi,

I would like to copy a file (MyFile.txt) to multiple directories with a dynamically created names. In other words, I know the ParentDirectory name but not the child directories as shown in screenshot.

There may be sub-directories under child directory, but I would like to copy a file to all child directories, possible /supported in vb.net?

Answer 1

It seems that you need the immediate child directories only. In this case, try this loop:

Dim SourceFile = "C:\MyFile.txt"
Dim TargetDir = "C:\ParentDir"

Dim f = New FileInfo(SourceFile)

For Each d In New DirectoryInfo(TargetDir).EnumerateDirectories("*")
    f.CopyTo(Path.Combine(d.FullName, f.Name), overwrite:=True)
Next

Answer 2

To copy to directories that do not have subdirectories:

Dim SourceFile = "C:\MyFile.txt"
Dim TargetDir = "C:\ParentDir"

Dim f = New FileInfo(SourceFile)

For Each d In New DirectoryInfo(TargetDir).EnumerateDirectories("*", SearchOption.AllDirectories)
    If d.EnumerateDirectories().Any() Then Continue For
    f.CopyTo(Path.Combine(d.FullName, f.Name), overwrite:=True)
Next

Remove ‘If’ if you want to copy to all subdirectories.

Answer 3

Thanks a lot for your input, appreciated. I think we are very close to solve this... as the example you provided copies the MyFile.txt to ALL Sub-Folders inside the dynamic directory. Means if we have 10 sub-folders, it will copy to all. However, I was looking to copy inside the dynamic folder only (the sub-folders of the Parent folder).

It should be copied to the folders marked green but in this case, it's end-up into sub-directories.

Answer 4

Thanks a Viorel, it's exactly what I was looking for.