主题：复制文件

Dim dlg As New saveFileDialog

If dlg.ShowDialog = DialogResult.OK Then
    Dim fn As String = ProjectPath & "Attachments\学生基本信息.xls"
    FileSys.CopyFile(fn, dlg.FileName, True)
End If