How to copy file in the same directory to multi places?

Question

How to copy file in the same directory to multi places?

Mostafa Salaheldien 61

Hello, everyone,
I would like to copy a file from the same directory to multi places
this is my code I am using to copy one file to one place

My.Computer.FileSystem.CopyFile( _
"C:\UserFiles\TestFiles\test.txt", _
"C:\Users\TestFiles2\test.txt", overwrite:=False)

but I want to copy that file to the desktop for every user has a profile already on my pc

C:\Users\User1\Desktop
C:\Users\User2\Desktop
C:\Users\User3\Desktop
C:\Users\User4\Desktop
C:\Users\User5\Desktop
C:\Users\User6\Desktop
C:\Users\User7\Desktop
C:\Users\User8\Desktop
C:\Users\User9\Desktop
C:\Users\User10\Desktop
C:\Users\User11\Desktop

thanks in advances

Accepted answer

1 additional answer

Your answer

Answer 1

Anonymous

Hello,

You can try this code:

Dim Users As String() = System.IO.Directory.GetDirectories("C:\Users\")

        For i = 0 To Users.Length - 1
            Try
                My.Computer.FileSystem.CopyFile("C:\UserFiles\TestFiles\test.txt", "C:\Users\" & Users(i) & "\Desktop\test.txt", overwrite:=False)
            Catch ex As Exception
            End Try
        Next

This code will copy the file to the desktop for each user. I hope it helps.

Mostafa Salaheldien 61 Reputation points

2021-06-05T19:31:43.347+00:00

thank u sir but I just mentioned user1, user2 as example

I want to copy test.txt to the desktop for any folder in users\username\Desktop

Users\alex\Desktop\ test.txt
Users\arlien\Desktop\ test.txt
Users\sara\Desktop\ test.txt
Users\karmei\Desktop\ test.txt

Anonymous

Sorry, for not give the correct answer. This code will copy the file to each folder on the desktop for each user on the computer:

Dim Users As String() = System.IO.Directory.GetDirectories("C:\Users\")

        For i = 0 To Users.Length - 1
            Try
                Dim Folders() As String = System.IO.Directory.GetDirectories(Users(i) & "\Desktop\")

                For j = 0 To Folders.Length - 1
                    My.Computer.FileSystem.CopyFile("C:\UserFiles\TestFiles\test.txt", Folders(j) & "\test.txt", overwrite:=False)
                Next
            Catch ex As Exception
            End Try
        Next

Mostafa Salaheldien 61 Reputation points

2021-06-05T20:56:36.323+00:00

Perfect but it's duplicate the file why?
Thank you so much
Mostafa Salaheldien 61 Reputation points

2021-06-05T21:18:30.47+00:00

sir , After you update the code nothing happened at all

Anonymous

This make it so it does not duplicate the file:

Dim Users As String() = System.IO.Directory.GetDirectories("C:\Users\")

        For i = 0 To Users.Length - 1
            Try
                Dim Folders() As String = System.IO.Directory.GetDirectories(Users(i) & "\Desktop\")

                For j = 0 To Folders.Length - 1
                    If Not System.IO.File.Exists(Folders(j) & "\test.txt") Then
                        My.Computer.FileSystem.CopyFile("C:\UserFiles\TestFiles\test.txt", Folders(j) & "\test.txt", overwrite:=False)
                    End If
                Next
            Catch ex As Exception
            End Try
        Next

Mostafa Salaheldien 61 Reputation points

2021-06-05T22:39:50.743+00:00

Now everything is okay
appreciated
Anonymous

2021-06-05T23:41:00.23+00:00

You are welcome.

Answer 2

Hi @Mostafa Salaheldien ,
You can consider copying the file to the public directory:

    c:\Users\Public\Desktop

For example:

My.Computer.FileSystem.CopyFile("C:\UserFiles\TestFiles\test.txt", "C:\Users\Public\Desktop\test.txt", overwrite:=False)

Note: if your access is denied, try running visual studio as Administrator.
Then every time you want to use the 'test. txt', you can :

Dim path As String = System.Environment.GetFolderPath(Environment.SpecialFolder.CommonDesktopDirectory) + "\test.txt"  
' do something with the file.

Best Regards,
Xingyu Zhao
*
If the answer is helpful, please click "Accept Answer" and upvote it.
Note: Please follow the steps in our documentation to enable e-mail notifications if you want to receive the related email notification for this thread.

Mostafa Salaheldien 61 Reputation points

2021-06-05T19:32:26.45+00:00

thank u sir

Share via

How to copy file in the same directory to multi places?

1 additional answer

Your answer