Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim FolderBrowserDialog1 As FolderBrowserDialog
FolderBrowserDialog1 = New FolderBrowserDialog FolderBrowserDialog1.RootFolder = Environment.SpecialFolder.MyComputer If txtFolder.Text <> "" Then FolderBrowserDialog1.SelectedPath = txtFolder.Text End If If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then txtFolder.Text = FolderBrowserDialog1.SelectedPath 'フォルダ名を取得 End If End Sub
分類:[.NET]
以下の様なコーディングをしています。
FolderBrowserDialog1で選択したフォルダをtxtFolder.Textに設定し
次にFolderBrowserDialog1を開く時にはtxtFolder.Textの値を初期値に
したいのですが。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim FolderBrowserDialog1 As FolderBrowserDialog
FolderBrowserDialog1 = New FolderBrowserDialog
FolderBrowserDialog1.RootFolder = Environment.SpecialFolder.MyComputer
If txtFolder.Text <> "" Then
FolderBrowserDialog1.SelectedPath = txtFolder.Text
End If
If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
txtFolder.Text = FolderBrowserDialog1.SelectedPath 'フォルダ名を取得
End If
End Sub
FolderBrowserDialog1で
ユーザー−>(ユーザー名)−>デスクトップ
等と選択すると返り値は
C:\Users\(ユーザー名)\Desktop
になりtxtFolder.Textにチャンと設定されるのですが
次にFolderBrowserDialog1を開いた時に初期値として設定されません。
これってしょうがないの?仕様?
なにか回避策は有りませんでしょうか?
どなたか御指導下さいますよう、よろしくお願いいたします。