回溯到dwg路径中的某些文件夹..
您好，我想找到我的图形文件用于are项目的根文件夹。
我们有以下方式的prject文件夹：
项目>>
客户端名称
ProjectName
…然后在这里，我们有一个图形文件夹和许多其他文件夹，包括一个Schedules文件夹，其中使用ThisDrawing可以找到其他DWG。
。路径：在VBA中是否有方法回溯文件夹，以便我可以找到主项目文件夹？因此，…
X:\Projects\MyClient\MyProject\Drawings\MyDrawing。dwg
…但我想使用vba查找主项目文件夹（X:\Projects\）
我不知道是否有基本的vb函数或命令从路径字符串中删除最后几个文件夹。我想这可能需要在字符串中查找“\”字符，但显然路径本身中有一些。
有什么想法吗
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
**** Hidden Message ***** “项目”每次的字符数是相同的还是不同的？ 类似这样的：
Dim dwgPath as String
Dim pathTokens as Variant
Dim projectPath as string
dwgPath = ThisDrawing.Path
pathTokens = split(dwgPath, "\")
projectPath = pathTokens(0) & "\" & pathTokens(1)
我在快速回复框中对其进行了编码，因此请注意语法错误。 是的，就像那样。还为您提供了固定宽度的方法。
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
嗨，谢谢你们俩。我用了Chuck的代码，并把它改成适合的，现在它可以工作了。谢谢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 嗨，
我使用了最后一个代码，没关系，但是如果我想从bricscad打开一个对话框窗口，我必须使用什么？
现在我正在使用“ThisDrawing.SendCommand（”open“ & vbCr）” - 它正在努力打开对话框窗口，但不在当前文件夹中。有什么想法吗？
谢谢。
页:
[1]