如何让用户输入文档然后保存该文档?
How do I get a user to input a document and then save that document?
所以我有点坚持我的项目,我正在使用 Visual Studio 并在 Visual Basic 中编码,如果有帮助的话,我还使用带有 SQL 的 Microsoft Access。
我需要的是允许用户从 OpenFileDialog select 文档,然后将该文档保存到实际程序中,以便在下一个程序运行时它就在那里 运行。
下面的代码是在按下按钮时触发的,我目前拥有的是...
saveDocumentDialog.Filter = "Document Files|*.docx;*.doc;*.dot;*.txt;*.rtf;*.pdf;*.ppt;*.pptx;*.xls;*.xlsx"
saveDocumentDialog.FileName = "Untitled"
saveDocumentDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
saveDocumentDialog.ShowDialog()
If saveDocumentDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
fullFilename = saveDocumentDialog.FileName
End If
Using openDocumentDialog As New SaveFileDialog
Dim filename As String = IO.Path.GetFileName(fullFilename)
openDocumentDialog.FileName = "Untitled"
openDocumentDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
openDocumentDialog.Title = "Select Save Location"
openDocumentDialog.Filter = "All Files (*.*)|*.*"
If openDocumentDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
Try
My.Computer.FileSystem.CopyFile(fullFilename, openDocumentDialog.FileName)
Catch ex As Exception
MessageBox.Show("Could not copy the file." & Environment.NewLine & ex.Message, "Error copying file.", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End If
一种方法是为程序指定一个特定的文件夹(例如 Public Documents),然后将文件保存在那里,并在程序重新启动时从文件夹中重新加载它们。您可以对路径进行硬编码,也可以在程序中进行设置,让用户指定他们喜欢的文件夹。
所以我有点坚持我的项目,我正在使用 Visual Studio 并在 Visual Basic 中编码,如果有帮助的话,我还使用带有 SQL 的 Microsoft Access。
我需要的是允许用户从 OpenFileDialog select 文档,然后将该文档保存到实际程序中,以便在下一个程序运行时它就在那里 运行。
下面的代码是在按下按钮时触发的,我目前拥有的是...
saveDocumentDialog.Filter = "Document Files|*.docx;*.doc;*.dot;*.txt;*.rtf;*.pdf;*.ppt;*.pptx;*.xls;*.xlsx"
saveDocumentDialog.FileName = "Untitled"
saveDocumentDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
saveDocumentDialog.ShowDialog()
If saveDocumentDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
fullFilename = saveDocumentDialog.FileName
End If
Using openDocumentDialog As New SaveFileDialog
Dim filename As String = IO.Path.GetFileName(fullFilename)
openDocumentDialog.FileName = "Untitled"
openDocumentDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
openDocumentDialog.Title = "Select Save Location"
openDocumentDialog.Filter = "All Files (*.*)|*.*"
If openDocumentDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
Try
My.Computer.FileSystem.CopyFile(fullFilename, openDocumentDialog.FileName)
Catch ex As Exception
MessageBox.Show("Could not copy the file." & Environment.NewLine & ex.Message, "Error copying file.", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End If
一种方法是为程序指定一个特定的文件夹(例如 Public Documents),然后将文件保存在那里,并在程序重新启动时从文件夹中重新加载它们。您可以对路径进行硬编码,也可以在程序中进行设置,让用户指定他们喜欢的文件夹。