Dim openFdDialog As New FolderBrowserDialog
        openFdDialog.Description = "请选择文件网络备份路径"
        openFdDialog.RootFolder = Environment.SpecialFolder.Desktop
        openFdDialog.ShowNewFolderButton = True
        If openFdDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Me.TextBox1.Text = openFdDialog.SelectedPath
        End If
posted on 2007-06-08 11:21  海纳白川  阅读(1148)  评论(0)    收藏  举报