| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 339 人关注过本帖, 1 人收藏
标题:[已经解决]已得到一文件夹的路径,如何再取上一级的路径?谢谢。
只看楼主 加入收藏
HVB6
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:14
帖 子:296
专家分:521
注 册:2013-10-30
结帖率:100%
收藏(1)
已结贴  问题点数:20 回复次数:5 
[已经解决]已得到一文件夹的路径,如何再取上一级的路径?谢谢。

'以上代码可以选择文件夹的路径(即s,),如:s =“ E:\ asw \ tmk \ kyr”(文件夹的路径的级数不定),请教
取“ E:\ asw \ tmk”(即s的上一级的路径)的代码如何写?谢谢。

'为何贴代码有一些英文单词会变为中文呢?清教如何贴代码上传?谢谢。
已经解决:  path = Left(s, InStrRev(s, "\"))
          MsgBox path  ' path="E:\ asw \ tmk\"


[此贴子已经被作者于2020-6-4 20:08编辑过]

附件: 游客没有浏览附件的权限,请 登录注册
搜索更多相关主题的帖子: path 路径 代码 MsgBox 文件夹 
2020-06-04 19:47
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:275
帖 子:4575
专家分:28392
注 册:2008-10-15
收藏
得分:10 
代码可用,但存在bug
s =“ E:\ asw \ tmk \ kyr\"
你这行代码的结果错误的
会返回 E:\ asw \ tmk \ kyr

修改建议,先对最后一个字符判断,如果是 \ ,那么去掉这人
个 \ 再执行你的这么代码。

授人于鱼,不如授人于渔
早已停用QQ了
2020-06-04 22:03
HVB6
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:14
帖 子:296
专家分:521
注 册:2013-10-30
收藏
得分:0 
回复 2楼 风吹过b
谢谢关注。因为即要处理这一级的某个文件夹,还要在这一级建立一个文件夹,因此,该代码的结果正合本人的心意。
2020-06-05 15:22
yz1025
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:6
帖 子:455
专家分:915
注 册:2012-10-26
收藏
得分:10 
A=split(s,"\")

for I=0 to abound(A)
....
next I

拆解再重组就好了

不要投我
2020-06-07 02:39
inchn
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2019-5-21
收藏
得分:0 
mark  获得上一级路径
2020-07-03 17:51
yuma
Rank: 10Rank: 10Rank: 10
来 自:银河系
等 级:青峰侠
威 望:3
帖 子:1245
专家分:1823
注 册:2009-12-22
收藏
得分:0 
回复 楼主 HVB6
查看文件夹的上级文件夹

Set fso = CreateObject("Scripting.FileSystemObject")
ParentPath = fso.GetParentFolderName("C:\AA\BB\CC")
MsgBox ParentPath


查看文件所在文件夹的上级文件夹

程序代码:
Dim pos
Str="C:\Windows\system32\mstsc.exe"
pos = InStrRev(Str, "\") '从字符串尾部向前搜索子串("\")
GetFileTitle = Left(Str,pos) '截取文件完整路径
'Msgbox GetFileTitle
Set fso = CreateObject("Scripting.FileSystemObject")
ParentPath = fso.GetParentFolderName(GetFileTitle) '返回上级目录
MsgBox ParentPath


[此贴子已经被作者于2020-7-4 12:51编辑过]


心生万象,万象皆程序!   敲敲代码更健康!   
2020-07-03 20:34
快速回复:[已经解决]已得到一文件夹的路径,如何再取上一级的路径?谢谢。
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.050281 second(s), 9 queries.
Copyright©2004-2020, BCCN.NET, All Rights Reserved