コモンダイアログの表示ディレクトリについて

解決

F 2007-03-02 22:38:57 No: 135613

いつもお世話になります

フォームにボタン２つとコモンダイアログを張って
Option Explicit

Private Sub Command1_Click()
    With CommonDialog1
        .InitDir = "c:\"
        .ShowOpen
    End With
End Sub

Private Sub Command2_Click()
    With CommonDialog1
        .InitDir = "d:\"
        .ShowOpen
    End With
End Sub

と簡単なコードを入れました。

１．Command1からダイアログオープン、c:\temp\hogehoge.txtを選択
２．Command2からダイアログオープンすると、c:\temp\でダイアログがオープンしてしまいます

動作としては、Command2を開いたときにd:\を開かせたかったのですが
InitDir ではダメなようなのですが、どうすれば希望通り
Command1でc:\ 、 Command2でd:\を開くようにできますでしょうか？
ご教授お願いします

環境 WinXP Pro + VB6 SP5

大吉末吉 2007-03-02 22:51:32 No: 135614

こうするとか・・・
-----------------------------------
Private Sub Command2_Click()
    With CommonDialog1
        .FileName = ""    '  選択済みのファイル名（パス名）をクリア
        .InitDir = "d:\"
        .ShowOpen
    End With
End Sub
-----------------------------------

F 2007-03-02 23:06:05 No: 135615

ありがとうございます！
動作確認取れました！

.FileName = "" しないといけないとは盲点でした