ダイアログボックスのデフォルトパス

環境/言語:[OS：Win2000，VB：6.0]
分類:[VB6以前]

こんにちは。
ご質問させていただきます。

CommonDialogを使用して「参照ボタン」押下時に、
ダイアログボックスを表示させます。
そこで選択したファイル名をパス付でテキストボックスに表示させます。
InitDirでデフォルトにＡドライブを設定していますが、
１回目は問題ないのですが、２回目は１回目に選択したファイルが
そのまま選択された状態で表示されます。
開くたびに常にＡドライブが開くように設定できないでしょうか？

--------参照ボタン押下時処理-------------------------------------------
'タイトル
CommonDialog.DialogTitle = "読込用ファイル選択"
'読取専用で開くチェックボックスの非表示,存在するファイル名のみ指定可能
CommonDialog.Flags = cdlOFNHideReadOnly Or cdlOFNFileMustExist
CommonDialog.InitDir = "a:\"
' ファイルの選択方法を設定します。
CommonDialog.Filter = "Microsoft Excelブック(*.xls)|*.xls"
' [ファイルを開く] ダイアログ ボックスを表示します。
CommonDialog.ShowOpen

txtPath = CommonDialog.FileName

■No10779に返信(ＯＬさんの記事)
> こんにちは。
> ご質問させていただきます。
>
> CommonDialogを使用して「参照ボタン」押下時に、
> ダイアログボックスを表示させます。
> そこで選択したファイル名をパス付でテキストボックスに表示させます。
> InitDirでデフォルトにＡドライブを設定していますが、
> １回目は問題ないのですが、２回目は１回目に選択したファイルが
> そのまま選択された状態で表示されます。
> 開くたびに常にＡドライブが開くように設定できないでしょうか？
>
> --------参照ボタン押下時処理-------------------------------------------
> 'タイトル
> CommonDialog.DialogTitle = "読込用ファイル選択"
> '読取専用で開くチェックボックスの非表示,存在するファイル名のみ指定可能
> CommonDialog.Flags = cdlOFNHideReadOnly Or cdlOFNFileMustExist
> CommonDialog.InitDir = "a:\"
> ' ファイルの選択方法を設定します。
> CommonDialog.Filter = "Microsoft Excelブック(*.xls)|*.xls"
> ' [ファイルを開く] ダイアログ ボックスを表示します。
> CommonDialog.ShowOpen
>
> txtPath = CommonDialog.FileName

CommonDialog.InitDir = "a:\"
の上の行に「CommonDialog.FileName = ""」
を入れてください。
これで問題が解決するはずです。

解決しました。
どうもありがとうございます。