如何不覆盖VB.net中的文件

Dim filePath As String = "C:\path\to\file.txt"

If File.Exists(filePath) Then
    ' 文件已存在，执行相应的操作
Else
    ' 文件不存在，执行其他操作
End If

Dim filePath As String = "C:\path\to\file.txt"

If File.Exists(filePath) Then
    Dim directory As String = Path.GetDirectoryName(filePath)
    Dim fileName As String = Path.GetFileNameWithoutExtension(filePath)
    Dim extension As String = Path.GetExtension(filePath)

    Dim newFileName As String = fileName & "_" & Path.GetRandomFileName() & extension
    Dim newFilePath As String = Path.Combine(directory, newFileName)

    ' 使用新的文件名进行文件操作
Else
    ' 文件不存在，执行其他操作
End If

Dim filePath As String = "C:\path\to\file.txt"

If File.Exists(filePath) Then
    Dim backupDirectory As String = "C:\path\to\backup"
    Dim backupFilePath As String = Path.Combine(backupDirectory, Path.GetFileName(filePath))

    ' 备份原始文件
    File.Copy(filePath, backupFilePath)

    ' 使用备份文件进行文件操作
Else
    ' 文件不存在，执行其他操作
End If