vb.net操作另存为,另存为vbs

vb.net保存另存

你就不能这样保存么？ ↓

创新互联公司专注于企业营销型网站建设、网站重做改版、禄劝网站定制设计、自适应品牌网站建设、H5场景定制、电子商务商城网站建设、集团公司官网建设、成都外贸网站建设公司、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为禄劝等各大城市提供网站开发制作服务。

Static SaveNumber as Integer

SaveNumber += 1

Dim SavePath as String = "C:\ytakqi" SaveNumber ".png"

bit.Save(SavePath)

可以用SaveFileDialog1对话框加上对文件数据操作的类来实现，，用richtextbox自己的属性方法也能行！我以前做过一个记事本程序就是那样的！

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'定义Word对象

Dim wordApp As New Word.ApplicationClass

'要转换的文件名

Dim fileName As Object = "E:\Test.doc"

'默认值

Dim miss As Object = System.Reflection.Missing.Value

'打开要转换的 DOC 文件

Dim doc As Word.Document = DirectCast(wordApp.Documents.Open(fileName, miss, miss, miss, miss, miss, _

miss, miss, miss, miss, miss, miss, _

miss, miss, miss, miss), Word.Document)

'转换后的文件名

fileName = "E:\testDoc.HTML"

'保存的文件格式

Dim saveFormat As Object = Word.WdSaveFormat.wdFormatHTML

'按文本文件保存

doc.SaveAs(fileName, saveFormat, miss, miss, miss, miss, _

miss, miss, miss, miss, miss, miss, _

miss, miss, miss, miss)

'关闭是否保存文件，这里为不保存

Dim changes As Object = False

'关闭文件

doc.Close(changes, miss, miss)

'退出 Word 应用程序

wordApp.Quit(changes, miss, miss)

End Sub

网站栏目：vb.net操作另存为,另存为vbs
标题链接：http://pwwzsj.com/article/hdodcs.html