If by copying you mean copy the file itself from one folder to C:\ then you can use something like this... (a modification of your function)
CODE
Dim strFileName As String = ""
Dim path As String = "C:\"
Private Sub btnSendFiles_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSendFiles.Click
Dim TotalFile As String = ""
OpenFD.Multiselect = True
If OpenFD.ShowDialog = DialogResult.OK Then
' For each filename in the list of selected FileName"S"
For Each s As String In OpenFD.FileNames
' Append the filename on a line and add the newline char
rtxFiles.Text &= s & Environment.NewLine
' Use the filename as the source, then build the path to C:\ using the filename of the current file.
' Result, all files selected in the openfile dialog will be copied to C:\ with the same names.
' eg. D:\miscfolder\helloworld.vb will be copied to C:\ as C:\helloworld.vb
File.Copy(s, path & System.IO.Path.GetFileName(s))
Next
End If
End Sub
The in code comments will tell you what is going on at each step and hopefully this is what you were looking to do with this code. If not, can you be more specific as to your intentions? Thanks!
"At DIC we be file copying code ninjas!"
| 