alt ana()
" ana dosya bir assemblydocument
Buapplication.activedocumenttype = documenttypeenum.kassemblydocumentobject
"evet" setlerine cevap vermek dosyaların sadece özelliklerini okuyun
“Hayır” cevabı, dosyaların sadece özelliklerini ortadan kaldırır
myparam = messagebox.show("is for read only, no for read/write", "sadece", mesajboxbuttons.yesnocancel)
Eğer param < > Daha sonra
Justfiles (iif(myparam = vsyes, true, false)))
Sonunda, eğer sona erirse
Sonunda, eğer sona erirse
end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end
public sub read onlyfiles (yalnızca boolean olarak okunur)
dim adoc as string = thisapplication.activedocument.fullfilename
dim sset mucit olarak. selectset = thisapplication.activedocument.selectset
dim subdocname as string
“ döngü, ilk kontrol seviyesinde kasıtlı olarak durur
“Seçilmiş bileşeni bir set/part olup özelliği değiştirirse kontrol edin
“Seçilmiş axieme ve ilk seviye bileşenler için (tüm belge türleri)
Her bir cocc için
if if if if if if if if if if Cocc.definitiondocumenttype = documenttypeenum.kassemblydocumentobject O zaman sonra
if if if if if if if if if if cocc.referencedfiledescriptor.fullfilename <> adoc sonra
“Listedeki seçilmiş axieme’nin okuma özelliklerini modize eder.
call setroattribute (cocc.referencedfiledescriptor.fullfilename, setread only)
Her bir osubocc için kocc.definition.document.allreferenceddocuments
“İlk düzey belgelerin okuma-sadece özelliklerini değiştirmek
call setroattribute (osubocc.fullfilename, setread Only)
Bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki
Sonunda, eğer sona erirse
Başka Cocc.definitiondocumenttype = documenttypeenum.kpartdocumentobject O zaman sonra
"Sadece belge tipi parçasının okuma özelliklerini değiştirmek
call setroattribute (cocc.referencedfiledescriptor.fullfilename, setread only)
Sonunda, eğer sona erirse
Bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki bir sonraki
end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end
Halk sub setroattribute (pa as string, roattribute as boolean)
dim finfo sistem olarak.io.fileinfo
Eğer sistem.io.file.exists (path) o zaman
finfo = yeni sistem.io.fileinfo (path)
finfo.isread Only = roattribute
Sonunda, eğer sona erirse
end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end end
