Zobrazit plnou verzi příspěvku: ČÁST PRAVIDLA - read only

Lukáš Záruba
23.02.2018, 09:39
Zdravím, potřebuji napsat část pravidla, které mi před vlastním úkonem daného pravidla koukne na soubor nebo složku a pokud je jen pro čtení nebo se doněj nedá zapisovat z důvodu že je z jiného projektu tak zastaví pravidlo. Ví někdo jak to napsat a bude tak a laskav a podělí se o to?

Petr Klimeš
23.02.2018, 10:08
Dobrý den,můžete použít následující fragment, který vypíše, zda dokument, ve kterém pravidlo spouštíte je readonly :Imports System.IOSub Main()Dim oDoc As PartDocument = ThisDoc.DocumentDim oDocName As String = oDoc.FullDocumentNameDim oReadOnlyDocument As Boolean = IsFileReadOnly(oDocName)If oReadOnlyDocument Then    MsgBox(oDocName + " = true")Else    MsgBox(oDocName + " = false")End IfEnd Sub Function IsFileReadOnly(ByVal FileName As String) As Boolean        Dim fInfo As New FileInfo(FileName)        Return fInfo.IsReadOnlyEnd Function

Vladimír Michl
23.02.2018, 10:12
Anebo prostě zkusit zapsat - a ošetřit přes Try/Catch.

Lukáš Záruba
23.02.2018, 10:28
Try/Catch ? co to přesně znamená ? můžete mi to blíže vysvětlit?

Vladimír Michl
23.02.2018, 10:40
To slouží k odchycení a ošetření možných chyb. Struktura:Try příkazy-které-mohou-selhatCatch příkazy-co-dělat-když-dojde-k-selháníEnd Try

Navara
23.02.2018, 11:31

No a co se týká cesty do jiného projektu, tak tam se dá použít objekt[code]ThisApplication.DesignProjectManager.ActiveDesignProject[/code] 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ě.