在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判斷式，來提醒使用者做相應的動作。