在SW中，有時我們會需要檔案的路徑名稱，可以使用下面的程式來取得。
Dim swApp As Object
Sub main()
'Auther : Benjamin Chien
'Date : 2013/1/1
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc '取得當前文件
sPathName = swModel.GetPathName '取得檔案全路徑名稱
'如果是新檔案未儲存，那麼名稱為空白
If spatehname = "" Then
MsgBox "請先儲存檔案"
End
End If
MsgBox sPathName '輸出名稱至訊息框
End Sub
在程式中已說明，如果當前的檔案是新檔案，且未儲存，此時檔案名稱為空白，可以使用if判斷式，來提醒使用者做相應的動作。
剪貼板指的就是，選取一段文字後，按下Ctrl +C，這時這段文字會烤貝並放置到系統的一個區域，當你在適當的檔案或位置中按下Ctrl + V，複製的文字就會跑出。這就是剪貼版
剪貼板可以應用在，當你需要把檔案的相關訊息，例如名稱、屬性…，輸出到其他軟體中(例如excel)，如果數量不多的話，這時剪貼板是一個簡單且快速的方式，因為大部分的軟體都支援剪貼的程序，就是上述說的Ctrl +C、V，如果數量多且雜，本程式就不是很適用。
程式中DataObject需要引用Microsoft Forms 2.0 Object Library，然而直接引用，是找不到這個庫，需要新建一個表單(Form)，專案會自動引用Microsoft Forms 2.0 Object Library，後面可以將表單移除，已引用的Microsoft Forms 2.0 Object Library不會消失。
| Option Explicit Dim swApp As Object Set swApp = Application.SldWorks Dim myDataObj As New DataObject |
按下F5執行，現在你可以新增或開啟一個文字文件，或其他支援剪貼的程式(例如office所有的程式)，按下Ctrl + V，應該會跑出程式中myStr內的字串。
如果把字串改為檔案的相關屬性，那些你需要的屬性，這時貼到所要用的軟體上，就很方便。
