end sub
public sub close()
site.close()
end sub
end class
public class logextfileflags
public sub new(byval objdirectoryentry as directoryentry)
site = objdirectoryentry
end sub
private site as directoryentry
public property logextfileflags() as int32
get
return ctype(site.properties("logextfileflags")(0), int32)
end get
set(byval value as int32)
site.invoke("put", "logextfileflags", value)
end set
