打开/保存文本框

 打开文本框

控件:OpenFileDialog

代码:

  1. OpenFileDialog1.InitialDirectory = Application.ExecutablePath '初始目录为应用程序的可执行路径,
  2.         OpenFileDialog1.DefaultExt = ".doc"    '指定默认类型
  3.         OpenFileDialog1.Filter = "文本型|*.txt|文档型|*.doc|所有文件|*.*"
  4.         OpenFileDialog1.ShowDialog()

保存文本框

控件: SaveFileDialg

注意:把CheckFileExists 和 CheckPathExists都设为true

你可能感兴趣的:(文档)