如果我想把文件存到指定目录应该怎么办呢?谢谢

Question

ComDlg.Flags = cdlOFNOverwritePrompt + cdlOFNPathMustExist + cdlOFNNoReadOnlyReturn
    ComDlg.DialogTitle = "Save to a Wave File"
    ComDlg.Filter = "All Files (*.*)|*.*|Wave Files " & "(*.wav)|*.wav"
    ComDlg.FilterIndex = 2
    ComDlg.ShowSave请指教，谢谢，请尽快给出答案好吗?

Answer 1

ComDlg.Flags = cdlOFNOverwritePrompt + cdlOFNPathMustExist + cdlOFNNoReadOnlyReturn '设置标志,第一个是覆盖提示,第二个是输入的路径必须存在,第三个是不显示只读复选框
    ComDlg.DialogTitle = "Save to a Wave File" '这是设置对话框标题
    ComDlg.Filter = "All Files (*.*)|*.*|Wave Files " & "(*.wav)|*.wav" '设置保存文件的扩展名
    ComDlg.FilterIndex = 2 '设置默认显示的扩展名为第二项(WAV)
    ComDlg.ShowSave '显示保存对话框

Answer 2

    '设置对话框选项
    'cdlOFNOverwritePrompt  使“另存为”对话框当选择的文件已经存在时应产生一个信息框，用户必须确认是否覆盖该文件
    'cdlOFNPathMustExist   它指定只能输入有效路径。如果设置该标志，输入非法路径时，应显示一个警告信息。
    'cdlOFNNoReadOnlyReturn  它指定返回的文件不能具有只读属性，也不能在写保护目录下面。
    ComDlg.Flags = cdlOFNOverwritePrompt + cdlOFNPathMustExist + cdlOFNNoReadOnlyReturn
    
    '设置对话匡标题
    ComDlg.DialogTitle = "Save to a Wave File"
    
    '设置对话框文件过滤
    ComDlg.Filter = "All Files (*.*)|*.*|Wave Files " & "(*.wav)|*.wav"
    
    '设置默认过滤项为第2项，即*.wave
    ComDlg.FilterIndex = 2
    
    '弹出另存为对话框
    ComDlg.ShowSave

Answer 3

你可以设置InitDir 属性      
语法object.InitDir [= string]InitDir 属性语法有下列部分：部分 描述 
object 对象表达式，其值是“应用于”列表中的对象。 
sting 字符串表达式，它指定初始文件目录。 

Answer 4

借天狼兄的一用：
ComDlg.Flags = cdlOFNOverwritePrompt + cdlOFNPathMustExist + cdlOFNNoReadOnlyReturn '设置标志,第一个是覆盖提示,第二个是输入的路径必须存在,第三个是不显示只读复选框
    ComDlg.DialogTitle = "Save to a Wave File" '这是设置对话框标题
    ComDlg.Filter = "All Files (*.*)|*.*|Wave Files " & "(*.wav)|*.wav" '设置保存文件的扩展名
    ComDlg.FilterIndex = 2 '设置默认显示的扩展名为第二项(WAV)
    '========这里是关键：===================
    ComDlg.IniDir ="c:\temp"   '设置默认保存路径
   '=============================================
    ComDlg.ShowSave '显示保存对话框

Answer 5

open 文件名 for output as #1