记事本文件保存、打开的问题？帮帮忙

cgx456

1、我首先创建一个文件，需要一个路径，我想单击某个按钮然后弹出一个“保存对话框”，我选择路径，一按保存此路径作为我创建文件的路径。可是我如下代码：

Dim dlgSaveAs As FileDialog （错误：用户自定义类型)

    Set dlgSaveAs = Application.FileDialog(msoFileDialogSaveAs)

    dlgSaveAs.Show

    Set fs = CreateObject("Scripting.FileSystemObject")

    Set a = fs.CreateTextFile("d:\testfile.txt")

是不是使用filedialog还要引用什么东西？？还有，我怎样从对话框中读取路径。

2、我创建完记事本后，我想让他自动打开记事本，怎么写代码？

hi-wzj

应该是缺少引用。用shell命令来调用程序打开文件。

cgx456

我添加引用后，他又出现对象不支持这个方法，如果将msoFileDialogSaveAs改为msoFileDialogOpen,就不出错。怎么解决？帮帮忙？详细说一下。谢谢

[此贴子已经被作者于2004-8-30 11:15:37编辑过]