Foxtable(狐表)用户栏目专家坐堂 → 获取文件夹名称


  共有2582人关注过本帖树形打印复制链接

主题:获取文件夹名称

帅哥哟,离线,有人找我吗?
peibaomin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:465 积分:3216 威望:0 精华:0 注册:2017/4/18 1:15:00
获取文件夹名称  发帖心情 Post By:2017/7/15 22:04:00 [只看该作者]

怎样获取文件夹的名称(不是路径)

 回到顶部
帅哥哟,离线,有人找我吗?
wyz20130512
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1242 积分:9374 威望:0 精华:0 注册:2013/5/12 9:22:00
  发帖心情 Post By:2017/7/16 10:41:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
peibaomin
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:465 积分:3216 威望:0 精华:0 注册:2017/4/18 1:15:00
  发帖心情 Post By:2017/7/16 11:18:00 [只看该作者]

我想实现获取文件夹的名称(不包括路径)

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/16 11:21:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
peibaomin
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:465 积分:3216 威望:0 精华:0 注册:2017/4/18 1:15:00
  发帖心情 Post By:2017/7/16 11:34:00 [只看该作者]

甜老师我想获取文件夹不含路径的名称,能实现吗?不是文件名,文件夹下级有很多文件的。实现文件上一级的文件夹名怎么获得?


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/16 12:40:00 [只看该作者]

 一样的,都是一样的。

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
peibaomin
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:465 积分:3216 威望:0 精华:0 注册:2017/4/18 1:15:00
  发帖心情 Post By:2017/7/16 13:28:00 [只看该作者]

文件打开框能设置打开时默认上一次打开的文件夹吗?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
裴保民
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1989 积分:12631 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2017/7/16 18:19:00 [只看该作者]

退出来后在进入时打开是桌面根目录

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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编辑过]

 回到顶部
总数 14 1 2 下一页