主题：获取文件夹名称

参考

 

http://www.foxtable.com/webhelp/scr/1406.htm

 

 一样的，都是一样的。

 

Dim dir As String = "d:\test1\test2"
msgbox(FileSys.GetName(dir))

 

不设置，就是默认上次打开的文件夹。

 

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    MessageBox.Show("你选择的是:" & dlg.FileName,"提示") '提示用户选择的文件
End If

 

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.InitialDirectory = GetConfigValue("上一个目录", "")
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    MessageBox.Show("你选择的是:" & dlg.FileName,"提示") '提示用户选择的文件
    saveConfigValue("上一个目录", FileSys.GetParentPath(dlg.FileName))
End If

Dim dlg As New FolderBrowserDialog
dlg.SelectedPath = GetConfigValue("上一个目录", "")
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    MessageBox.Show("你选择的目录是:" & dlg.SelectedPath,"提示")
    saveConfigValue("上一个目录", dlg.SelectedPath)
End If

  做不到，目前做不到。这个窗口没有这种功能。