Vb.net 具有相同文件名和扩展名的大容量图像拷贝

当我使用openfiledialog加载图像时，我需要使用相同的文件名和相同的扩展名将图像的备份副本存储到另一个文件夹中。因此，我如何做到这一点，正如下面提到的代码中所述，我只能复制一个图像，并且我为该图像提供了随机字符串。但我不需要它。我希望使用相同的文件名进行复制如果我有相同的文件名，它应该覆盖它，但不能使用不同的名称和扩展名

任何帮助都将不胜感激

 If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
        OpenFileDialog1.Multiselect = True
        Dim r As New Random()
        Dim i As Integer
        Dim strTemp As String = ""


        For i = 0 To 8
            strTemp = strTemp & Chr(CInt(Int((26 * r.NextDouble()) + 65)))
        Next

        Dim str As String
        For Each str In OpenFileDialog1.FileNames
            System.IO.File.Copy(str, Application.StartupPath + "\DownloadedImages\" & "strTemp.jpg", True)
        Next
    End If

我做到了，但有一个问题，我可以复制一个图像，你能告诉我如何对多个图像进行复制。下面是代码：

 Dim fso As New FileSystemObject
        Dim str As String
        str = OpenFileDialog1.FileName
        MyExtension = fso.GetExtensionName(str)
        For i = 0 To OpenFileDialog1.FileNames.Length - 1
            System.IO.File.Copy(OpenFileDialog1.FileNames(i), Application.StartupPath + "\DownloadedImages\" + strTemp & "." & MyExtension, True)
        Next

你应该使用这个类。它有一些方法可以获取带或不带扩展名的文件名，也可以仅获取扩展名

另外，

strTemp

不应在引号中，因为这将是文本字符串

“strTemp”

而不是变量

strTemp

此行中的值：

System.IO.File.Copy(str, Application.StartupPath + "\DownloadedImages\" & "strTemp.jpg", True)

应改为：

System.IO.File.Copy(str, Application.StartupPath + "\DownloadedImages\" & strTemp & ".jpg", True)

---

是的，谢谢您的回复，但如果我有许多具有不同扩展名的图像，那么我如何使用相同的扩展名进行复制。是的，我已经对其进行了处理，并对其进行了修改和放置，以便对其他人有所帮助。没问题，如果您认为合适，请随时向上投票和/或标记为awnser:）

 If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
        Dim str As String
        For Each str In OpenFileDialog1.FileNames
            Dim fso As New FileSystemObject
            Dim MyName As String
            Dim MyExtension As String

            MyName = fso.GetFileName(CStr(str))
            MyExtension = fso.GetExtensionName(MyName)
            System.IO.File.Copy(str, Application.StartupPath + "\Backup\" + MyName & "." & MyExtension, True)
            CheckedListBox1.Items.Add(str, CheckState.Checked)
            Thumbcontrol1.AddThumbnail(str)
            Thumbcontrol1.BackgroundImage = Nothing
            CheckedListBox1.SelectedIndex = 0
        Next