回溯到dwg路径中的某些文件夹..

hardwired · 发表于 2008-5-30 09:46:18

您好，
我想找到我的图形文件用于are项目的根文件夹。
我们有以下方式的prject文件夹：
项目>>
客户端名称
ProjectName
…然后在这里，我们有一个图形文件夹和许多其他文件夹，包括一个Schedules文件夹，其中使用ThisDrawing可以找到其他DWG。
。路径：在VBA中是否有方法回溯文件夹，以便我可以找到主项目文件夹？因此，…
X:\Projects\MyClient\MyProject\Drawings\MyDrawing。dwg
…但我想使用vba查找主项目文件夹（X:\Projects\）
我不知道是否有基本的vb函数或命令从路径字符串中删除最后几个文件夹。我想这可能需要在字符串中查找“\”字符，但显然路径本身中有一些。
有什么想法吗

copy

Sub open_project_window()
Dim RetVal
Dim dwg_path As String
dwg_path = ThisDrawing.Path
RetVal = Shell("C:\Windows\Explorer.exe " & dwg_path, 1)
End Sub

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

hardwired · 发表于 2008-5-30 09:51:36

“项目”每次的字符数是相同的还是不同的？

montzagcg · 发表于 2008-5-30 09:56:23

类似这样的：

copy

Dim dwgPath as String
Dim pathTokens as Variant
Dim projectPath as string
dwgPath = ThisDrawing.Path
pathTokens = split(dwgPath, "")
projectPath = pathTokens(0) & "" & pathTokens(1)

我在快速回复框中对其进行了编码，因此请注意语法错误。

hardwired · 发表于 2008-5-30 09:58:46

是的，就像那样。还为您提供了固定宽度的方法。

copy

Sub TEST()
Dim StrPath As String
Dim strFixed As String
Dim varSplit As Variant
Dim strSplit As String
StrPath = ThisDrawing.Path
strFixed = Left(StrPath, 12)
varSplit = Split(StrPath, "")
strSplit = varSplit(0) & "" & varSplit(1) & ""
End Sub

montzagcg · 发表于 2008-5-30 10:19:10

嗨，谢谢你们俩。我用了Chuck的代码，并把它改成适合的，现在它可以工作了。谢谢

copy

Sub open_project_window()
Dim RetVal
Dim dwg_path As String
Dim PathTokens As Variant
Dim ProjectPath As String
dwg_path = ThisDrawing.Path
PathTokens = Split(dwg_path, "")
ProjectPath = PathTokens(0) & "" & PathTokens(1) & "" & PathTokens(2) & "" & PathTokens(3)
RetVal = Shell("C:\Windows\Explorer.exe " & ProjectPath, 1)
End Sub

montzagcg · 发表于 2008-12-10 08:00:43

嗨，
我使用了最后一个代码，没关系，但是如果我想从bricscad打开一个对话框窗口，我必须使用什么？
现在我正在使用“ThisDrawing.SendCommand（”open“ & vbCr）” - 它正在努力打开对话框窗口，但不在当前文件夹中。有什么想法吗？
谢谢。

回溯到dwg路径中的某些文件夹..

发表回复

精选推荐