Question

我有一个将图像文件路径保存到数据库的程序。然后将图像保存到特定文件夹，在该文件夹中，数据库中保存的文件路径将检索该图像。但是，我无法保存具有相同文件名的图像，因为它已经在文件夹中。

以下是将图像复制到文件夹中的代码：

Private Sub ButtonBrowseImage_Click(sender as System.Object, e As System.EventArgs) Handles ButtonBrowseImage.Click

     Dim opf as New OpenFileDialog
     opf.Filter="Choose Image(*.JPG, *.PNG, *.GIF)|*.jpg; *.png; *.gif"

       If opf.ShowDialog=Windows.Forms.DialogResult.Ok Then
         If opf.CheckFileExists Then
           Dim paths As String = Application.StartupPath.Substring (0, (Application.StartupPath.Length - 10 ))
           Dim CorrectFileName As String = System.IO.Path.GetFileName(opf.filename)
           System.IO.File.Copy(opf.FileName, paths + "\\artwork\\" + CorrectFileName)
         End If
       End If

有没有办法自动生成文件名或用相同的图像覆盖保存的图像文件，但文件名不同？

Answer 1

要生成随机文件名，您可以使用：

Path.GetRandomFileName()

以下是一个例子：

Imports System.IO

Module Module1

    Sub Main()
        Dim result = Path.GetRandomFileName()
        Console.WriteLine("Random file name is " + result)
    End Sub

End Module

' This code produces output similar to the following:

' Random file name is w143kxnu.idj
' Press any key to continue . . .

如何在将文件名保存到VB .NET文件夹之前自动生成文件名

1 个答案: