ThisApplication.DesignProjectManager.ActiveDesignProject

 

Ten poskytuje informace o cestách aktuálního projektu. Takže pracovní složky, souborů obsahového centra, knihoven, atd...

Takže se dá testovat, jestli cílový adresáře je/není v některé uvedené cestě.

Imports System.IO

Sub Main()

Dim oDoc As PartDocument = ThisDoc.Document

Dim oDocName As String = oDoc.FullDocumentName

Dim oReadOnlyDocument As Boolean = IsFileReadOnly(oDocName)

If oReadOnlyDocument Then

    MsgBox(oDocName + " = true")

Else

    MsgBox(oDocName + " = false")

End If

End Sub

 Function IsFileReadOnly(ByVal FileName As String) As Boolean

        Dim fInfo As New FileInfo(FileName)

        Return fInfo.IsReadOnly

End Function