VB中关于CommonDialog通用对话框的使用

Private Sub Command1_Click()
　　CD1.Filter＝"All File| * . * |Text File| * .txt|PPT| * .ppt"
　　CD1.FilterIndex＝2
　　CD1.InitDir＝"C："
　　CD1.FileName＝"default"
　　CD1.ShowSave
End Sub

1.Filter:为文件过滤器，列举出需要打开的文件类型，此程序包含的类型有TXT和ppt两种
2.Filterindex=1，表示另存为的类型为All File ，若
Filterindex=2，表示另存为的类型为txt，若
Filterindex=3，表示另存为的类型为PPt
3.initDir:表示指定通用对话框的初始目录
4.FileName：表示文件对话框默认的保存文件名
5.ShowSave：表示表示打开另存为对话框，执行保存文件的操作。
注意：CD1.showopen的程序位置很重要，如果放在程序开头，程序首先执行打开文件操作，而后面的程序则未执行到，需要第二次打开才执行后面的程序。