以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  获取文件夹名称  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=103739)
--  作者：peibaomin
--  发布时间：2017/7/15 22:04:00
--  获取文件夹名称
怎样获取文件夹的名称（不是路径）
--  作者：wyz20130512
--  发布时间：2017/7/16 10:41:00
--  
http://www.foxtable.com/webhelp/scr/1413.htm
--  作者：peibaomin
--  发布时间：2017/7/16 11:18:00
--  
我想实现获取文件夹的名称（不包括路径）
--  作者：有点甜
--  发布时间：2017/7/16 11:21:00
--  

参考

 

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

 
--  作者：peibaomin
--  发布时间：2017/7/16 11:34:00
--  

甜老师我想获取文件夹不含路径的名称，能实现吗？不是文件名，文件夹下级有很多文件的。实现文件上一级的文件夹名怎么获得？
--  作者：有点甜
--  发布时间：2017/7/16 12:40:00
--  

 一样的，都是一样的。

 

Dim dir As String = "d:\\test1\\test2"
msgbox(FileSys.GetName(dir))
--  作者：peibaomin
--  发布时间：2017/7/16 13:28:00
--  
文件打开框能设置打开时默认上一次打开的文件夹吗？
--  作者：有点甜
--  发布时间：2017/7/16 17:54:00
--  
以下是引用peibaomin在2017/7/16 13:28:00的发言：
文件打开框能设置打开时默认上一次打开的文件夹吗？

 

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

 

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

If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    MessageBox.Show("你选择的是:" & dlg.FileName,"提示") \'提示用户选择的文件
End If
--  作者：裴保民
--  发布时间：2017/7/16 18:19:00
--  
退出来后在进入时打开是桌面根目录
--  作者：有点甜
--  发布时间：2017/7/16 18:26:00
--  
以下是引用裴保民在2017/7/16 18:19:00的发言：
退出来后在进入时打开是桌面根目录

 

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

[此贴子已经被作者于2017/7/16 18:25:54编辑过]