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
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ě.