如何使用 OpenFileDialog 将带有日期时间戳文件名的文件从 souce Dir 复制到目标 Dir IN VB.NET

Question

C:\Restore\databasefile.accdb

D:\Backup\xyz.accdb

我想将 xyz.accdb 从 "D:\Backup" 复制到 "C: \Restore"（复制到“C:\Restore”时，xyz.accdb 应重命名为 'databasefile'.accdb）。

文件名 'xyz'.accdb 是一个日期时间戳，在某些时候不是唯一的。例如 04-04-2021.accdb、04-05-2021.accdb 等等。

我的问题是，如何使用 OpenFileDialog 从 D:\Backup\xyz.accd 复制非唯一文件名到 C:\Restore\databasefile.accdb（文件名重命名为 'databasefile'.accdb）

我正在使用 VB.NET - Visual studio 2019 如果有人可以帮助我提供代码或指令如何存档，我将不胜感激。谢谢

Answer 1

如果您只需要复制用户通过 OpenFileDialog 选择的文件，您可以这样做：

Dim open As New OpenFileDialog()
open.Title = "Select the file you wish to copy"
If open.ShowDialog() = Windows.Forms.DialogResult.OK Then
    IO.File.Copy(open.FileName, "C:\Restore\databasefile.accdb", True)
End If

如何使用 OpenFileDialog 将带有日期时间戳文件名的文件从 souce Dir 复制到目标 Dir IN VB.NET

How to Use OpenFileDialog to copy a file with datetime stamped filename from souce Dir to target Dir IN VB.NET

vb.net

visual-studio-2019