[Resolvido]Pasta de imagem protegida contra remoção.

Olá colegas.
Estou usando um campo tipo "anexo" para a inserção de imagens, vejo que não é a melhor opção pois adiciona mais peso ao BD.

Porem pelo método de se criar uma pasta para as imagens (como os exemplos do forum), observei que outro usuário pode ir na pasta e apagar as imagens, dessa forma perdendo a informação. É isso mesmo?

Se sim, há como proteger a pasta de imagens de forma que o usuário apenas inclua novas imagens e impeça a deletação de imagens e também da própria pasta?

Grato.

Olá, para proteger uma pasta.

Olá a todos,

Beto, excelente exemplo, desconhecia e vou testar.

Josealdo, outra alternativa à sugestão do colega seria utilizar as propriedades do ficheiro (via access) e colocar como readonly ou hidden.

Abraço

Olá Pessoal

Esse exemplo fornecido pelo no colega Beto, é o único que existe sem necessidade de  programas que fazem isso.
Mas para que ele surta efeito, deve-se criar a pasta em local que usuários comuns evitam mexer, como por exemplo,
a pasta Windows, Arquivos de Programas.
Isto porque se forem em Opções de pasta e marcar/desmarcar as opções para verem pasta ocultas, a pasta irá aparecer, mas
não com o nome que foi dado a ela e sim pelo nome que é trocado pelo batch (Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}")
e estando em uma pasta "longe do aplicativo Access", eles não irão bisbilhotar.  

Abraços

Noob

Ola Beto, excelente código para travar a pasta, mas no meu caso não aplicável. Porque no meu caso as imagens tem que ser inseridas pelos próprios usuários conforme seus registros.
O BD tem sistema de logon, e cada usuário só pode editar os seus próprios registros, desta forma optei por colocar as imagens em anexo, porem vai adicionando muito peso ao BD.

O que eu estava querendo é que as imagens estejam em uma pasta imagem e que os demais usuários não consiga deletar as imagens.

Pelo seu excelente exemplo é aplicável quando a pasta já contem todas as imagens correto?

Obrigado.

Josealdo

Não sei como está pegando as imagens da pasta de imagens.
Tem exemplos meus aqui no fórum que os usuários escolhem a imagem numa caixa de listagem.
Isso resolva a parte de usar a imagem da pasta sem precisar acessar a pasta.

Você não explicou quem coloca a imagem na pasta.
Um ideia rápida que tive, é usar uma pasta temporária onde o usuário coloca a imagem
e através de um  bacth  pode copiar as imagem dessa pasta para a pasta oculta, e limpar a pasta em seguida.
Via código VBA, claro. E quanto ao arquivo.bat, pode ser transformado em arquivo.exe, assim ninguém pode edita-lo.
Ideias   

Abraços

Noob

Se o teu sistema operacional é o windows 7 e desejas somente evitar que o usuário delete as imagens da subpasta, clica com o botão direito do mouse na subpasta, "propriedade", guia "segurança", botão "avançadas", botão "alterar permissões", escolhe o usuário do pc, botão "Editar", na janela de permissões procura as opções "excluir subpastas e arquivos" e "excluir" marca na opção "negar" e marca a caixa "aplicar estas permissões apenas a objetos e/ou contêneres dentro deste contêner" e ok, isso deixará a subpasta protegido contra exclusão da mesma e seu conteúdo.

A minha primeira indicação também funcionaria, pois a pasta fica oculta somente no windows, quando fores inserir a figura no formulário a pasta vai aparecer normalmente para a escolha da imagem, outra coisa em relação ao usuário marcar a opção "mostrar arquivos, pastas e unidades ocultas não mostrará a pasta, mostrará se o usuário também desmarcar a opção "ocultar arquivos protegidos do sistema operacional", visto que /s transforma a pasta em arquivo do sistema.

Desculpa Beto mas aproveitando o assunto eu to usando esse código que vc me passou para quando eu inserir um nome de uma imagem que esta em uma pasta aparecer esta imagem,pois bem ta funcionando,mas não teria um outro código que fisese a mesma coisa sem ter que usar no Após Atualizar da caixa texto e no atual do formulario.Eu tenho muitas imagens, assim ficaria muito grande no código ou não teria importancia.



Após Atualizar
Private Sub APARELHO_AfterUpdate()
Me.APARELHO = StrConv([APARELHO], vbProperCase)
If Me.APARELHO = "Tvc" Then
Me.imagem3.Picture = (CurrentProject.Path & "\Imagens\Tvc.jpg")
End If
End Sub

No atual do formulário
Private Sub Form_Current()
If IsNull(Me.APARELHO) Then
Me.imagem3.Picture = ""
ElseIf Me.APARELHO = "Tvc" Then
Me.imagem3.Picture = (CurrentProject.Path & "\Imagens\Tvc.jpg")
End If
End Sub

Oi Beto

Beto escreveu:
A minha primeira indicação também funcionaria, pois a pasta fica oculta somente no windows, quando fores inserir a figura no formulário a pasta vai aparecer normalmente para a escolha da imagem

Não necessariamente, meu amigo   

veja aqui

Tem um outro exemplo para inserir fotos, usando o mesmo principio.

Grande abraço

De: Noob

Caro moderador, acho que direcionastes tua msg a pessoa errada, pois em nenhum momento disse que tua dica não funcionaria, apenas respondi a pergunta do último post do colega que abriu o tópico.

Beto

Sim, é contigo mesmo

Como pode ver na tua mensagem de nº8, o qual copiei e colei na minha mensagem anterior, diz que quando o usuário for inserir
a figura, a pasta irá aparecer normalmente para a escolha da imagem.

Não estou dizendo ou afirmando que disse que minha dica está errada, o que eu disse e demonstro no exemplo é
que o usuário pode escolher a figura entre tantas figuras que figuram numa caixa de listagem dentro de um formulário, sem
necessidade de abrir pasta alguma e claro, desse modo a pasta pode ficar escondida de olhares alheios.
Ou seja, só estou esclarecendo.

Abraços

Noob

Só para encerrar o diálogo, eu não preciso do teu esclarecimento, pois como disse antes não questionei tua ajuda ao colega e muito menos fui eu quem abriu o tópico.

Ótimo, mestre Beto

Fica tranquilo que não darei outros esclarecimento a você.


Noob

Olá a todos,

Gostava de expor a técnica que utilizo nas minhas apps.
Tenho uma aplicação num cliente que efetua a gestão de ofícios (ficheiros em pdf).

A técnica que utilizo é a seguinte:
Na rede foi criada uma pasta dado$ em que o nome da partilha também é dado$ (que fica escondida) o caminho está disponível mas não está visível.
Depois na minha app tenho a configuração do caminho (path) para arquivo dos ficheiros.
Para inserir o utilizador escolhe o ficheiro da origem e é copiado para a respetiva pasta (caminho/path).
Para alterar o mesmo processo.
Se pretende visualizar é efetuada uma cópia para pasta %temp% e só depois é que abre o ficheiro, para evitar do utilizador ter conhecimento do caminho.

Abraço a todos

Olá Alvaro, tudo bem?

Eu conheço essa técnica, a qual funciona perfeitamente em computadores em rede, ou seja, as estações de trabalho, não irão
enxergar a pasta$ no servidor, já quem está no servidor, claro, a verá.
O exemplo que postei neste tópico, mostra como fazer isso sem mostrar a pasta.
Agora estou pensando de fazer o caminho inverso, ou seja, criar uma pasta somente para receber novas imagens, e através do
Access, transferir essas imagens para a pasta oculta.

Abraços

Noob

Olá,

Fica mais uma sugestão, ficamos aguardar retorno do colega Josealdo.

Abraço a todos

Claro!

Sempre é bom contar com todo tipo de sugestão   

Valeu

Noob

ok

Boa noite.
Alguém teria o exemplo que foi postado na msg.02?
Obrigado