| 网站首页 | 业界新闻 | 群组 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 297 人关注过本帖
标题:求助,怎么把相对路径 的绝对路径字符提取出来!
只看楼主 收藏
suzhanpeng
Rank: 3Rank: 3
等 级:论坛游侠
威 望:3
帖 子:43
专家分:141
注 册:2016-9-28
结帖率:66.67%
  已结贴   问题点数:20  回复次数:3   
求助,怎么把相对路径 的绝对路径字符提取出来!
怎么把相对路径 的绝对路径字符提取出来!
例如:App.Path & "\123.txt" 的绝对路径 "D:\123.txt" 提取出来
2017-12-22 21:39
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:57
帖 子:606
专家分:3365
注 册:2016-5-10
  得分:15 
Dim SS As String
SS = App.Path & "\123.txt"
Label1.Caption = SS
SS就是绝对路径了,这么的问题自己不动动手,你能够学进去吗?

QQ    2653043392
2017-12-23 08:12
wds1
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:14
帖 子:138
专家分:703
注 册:2016-3-10
  得分:5 
App.Path & "\123.txt" 表示当前程序目录下的123.txt
如果你想把当前目录文件保存到当前程序的根目录可以如下实现
temp = App.Path & "\123.txt"
msgbox Right(temp, Len(temp) - InStrRev(temp, "\") + 1)'取得\123.txt
msgbox Left(temp, 2)'取得D:【当前盘符】
msgbox temp2 & temp1

也可以连着写
temp = App.Path & "\123.txt"
msgbox Left(temp, 2) & Right(temp, Len(temp) - InStrRev(temp, "\") + 1)'D:\123.txt



[此贴子已经被作者于2017-12-23 09:14编辑过]

2017-12-23 09:01
suzhanpeng
Rank: 3Rank: 3
等 级:论坛游侠
威 望:3
帖 子:43
专家分:141
注 册:2016-9-28
  得分:0 
回复 2楼 ZHRXJR
建议不错
Dim F7 As String, nStr7 As String, nSize7 As Long, S7 As Long
   F7 = App.Path & "\config.ini"
   nSize7 = 255: nStr7 = String(nSize7, 0)
   d7 = GetPrivateProfileString("Form2", "CLpart", vbNullString, nStr7, nSize7, F7)
   S7 = InStr(nStr7, Chr(0))
   If S7 > 0 Then
   nStr7 = Left(nStr7, S7 - 1)  'nStr7在这里提取的字符串是 “ App.Path & "\材质库.sldmat"”
   End If
boolstatus = swApp.SetUserPreferenceStringValue(swUserPreferenceStringValue_e.swFileLocationsMaterialDatabases, nStr7)   '这里nStr7 还是认为了相对路径的字符串,没有变成绝对路径的字符串。

改了一下变成
Label1.Caption=nStr7
boolstatus = swApp.SetUserPreferenceStringValue(swUserPreferenceStringValue_e.swFileLocationsMaterialDatabases, Label1.Caption)  ’OK!!
2017-12-23 17:10







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

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