标题:求助,怎么把相对路径 的绝对路径字符提取出来!
只看楼主
suzhanpeng
Rank: 4
等 级:业余侠客
威 望:7
帖 子:72
专家分:248
注 册:2016-9-28
结帖率:75%
已结贴  问题点数:20 回复次数:3 
求助,怎么把相对路径 的绝对路径字符提取出来!
怎么把相对路径 的绝对路径字符提取出来!
例如:App.Path & "\123.txt" 的绝对路径 "D:\123.txt" 提取出来
搜索更多相关主题的帖子: 相对路径 绝对路径 字符 提取 txt 
2017-12-22 21:39
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
得分:15 
Dim SS As String
SS = App.Path & "\123.txt"
Label1.Caption = SS
SS就是绝对路径了,这么的问题自己不动动手,你能够学进去吗?

请不要选我!!!
2017-12-23 08:12
wds1
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:49
帖 子:393
专家分:2025
注 册: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: 4
等 级:业余侠客
威 望:7
帖 子:72
专家分:248
注 册: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



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-483631-1-1.html




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

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