关于文件夹名称的链接

我只想要得到文件夹名称不要全路径行不行啊 ? 如图圈住的部分.
用别的法子实现也行 要自动化的,求摸索,主要目的用来显示项目名
或者把一属性指向一个文本文件的内容

你说清楚那行文字是如何得到的吗，想求助还说不清楚问题

来吧，我顶一下，求答案。大家帮忙看看~

看看热闹。

試試以下代碼…執行以後會新增一個"FolderName"(資料夾名稱)的屬性。
路徑改變時記得再執行一次。

1. Sub main()
   
2. Set swApp = Application.SldWorks
   
3. Set model = swApp.ActiveDoc
   
4. modelpathname = model.GetPathName
   
5. pathname = Left(modelpathname, InStrRev(modelpathname, "") - 1)
   
6. pathname2 = Left(pathname, InStrRev(pathname, ""))
   
7. folder = Right(pathname, Len(pathname) - Len(pathname2))
   
8. retval = swApp.ActiveDoc.DeleteCustomInfo2(sConfigName, "FolderName")
   
9. retval = swApp.ActiveDoc.AddCustomInfo3(sConfigName, "FolderName", swCustomInfoText, folder)
   
10. End Sub
    

复制代码

营口人 发表于 2014-12-14 11:48
你说清楚那行文字是如何得到的吗，想求助还说不清楚问题

{:soso_e140:},理解不同,表达亦不同

gt.adan 发表于 2014-12-17 14:31
試試以下代碼…執行以後會新增一個"FolderName"(資料夾名稱)的屬性。
路徑改變時記得再執行一次。

能不能不用宏啊?或者让宏 重建时 自动触发运行

zaq12 发表于 2014-12-18 08:37
能不能不用宏啊?或者让宏 重建时 自动触发运行

樓主的要求一直都很「特別」~
此處若不想用宏，已經不是我這種半桶水能解決的了。

若想自動觸發運行，目前只想到「特徵宏」，但是我不會寫。。。{:soso_e127:}

gt.adan 发表于 2014-12-17 14:31
試試以下代碼…執行以後會新增一個"FolderName"(資料夾名稱)的屬性。
路徑改變時記得再執行一次。

还是要感谢丹大的代码,虽然只实现了半自动

gt.adan 发表于 2014-12-18 08:59
樓主的要求一直都很「特別」~
此處若不想用宏，已經不是我這種半桶水能解決的了。

自動執行除了【宏特徵】還有更安全的【常駐宏】。
丹弟也成功測試的，見以下鏈接：
https://www.3dportal.cn/discuz/f ... amp;fromuid=1188094

提取當前文件夾名稱的【常駐宏】更是有現成可用的，見以下鏈接，只是各位都貴人善忘 或 日理萬機，忽略這些不顯眼的小東西不足為奇。
https://www.icax.org/forum.php?m ... 474&fromuid=128

Francis 发表于 2014-12-18 12:34
自動執行除了【宏特徵】還有更安全的【常駐宏】。
丹弟也成功測試的，見以下鏈接：
https://www.3dporta ...

阿丹才想利用中午時間回顧悶哥的教程：
https://www.solidworks.org.tw/forum.php?mod=viewthread&tid=21968

還沒看完就被您抓到了~~~真是慚愧呀…
回顧以前的帖子總是有幫助的，謝謝悶哥提醒！