恍惚之间

梦...

通用对话框

 

Dim openFileDialog_ScriptFile As New System.Windows.Forms.OpenFileDialog  '通用对话框,选择文件
            If openFileDialog_ScriptFile.ShowDialog() = DialogResult.OK Then     'DialogResult.OK 确定
                TxtFilePath.Text = openFileDialog_ScriptFile.FileName
            
End If
     

            
Dim folderBrowserDialog_Path As New System.Windows.Forms.FolderBrowserDialog  '通用对话框,选择文件夹
            If folderBrowserDialog_Path.ShowDialog() = DialogResult.OK Then     'DialogResult.OK 确定
                TxtFilePath.Text = folderBrowserDialog_Path.SelectedPath
            
End If

posted on 2006-11-23 20:55  Red Hu  阅读(...)  评论(...编辑  收藏

My Links

Blog Stats