ERRO AO INFORMAR O LOCAL DA FOTO

USUARIO.EXCLUIDOS 03/12/2006 11:32:48
#187642
ai pessoal belza!
eu inventei de opcao de foto em um dos forms...
ao informar o local da imagem..ele copia a imagem pra pasta do programa.. mas se for informado uma imagem que ja esta nessa pasta ele da erro.

o erro é...
run time error 70
permission denied

acho que deve ser que ele nao consegue copiar com o mesmo nome no mesmo local...
mas que devo fazer pra nao dar esse erro... valew...
USUARIO.EXCLUIDOS 03/12/2006 11:38:57
#187643
Usa as funções Dir e Kill para evitar por exemplo

Dim sFoto As String
sFoto= App.Path &"/Temp/Foto.jpg"
If Dir (sFoto) <> Then 
Kill sFoto
Ed I
USUARIO.EXCLUIDOS 03/12/2006 11:48:33
#187646
ai amigao..nao consegui... sou meio leigo ainda...
o que seria a pasta temp...
USUARIO.EXCLUIDOS 03/12/2006 12:06:58
#187651 Resposta escolhida
Temp foi so um exemplo que ele deu.

Vc falou que da erro quando copia para a mesma pasta não é?
então, é pq o arquivo já existe, sendo assim, vc verifica antes se o arquivo existe, se existir vc deleta. Para não dar este erro.

Dim sFoto As String
sFoto = App.Path &"\NomeDaFoto.jpg"
If Dir (sFoto) <> "" Then 'Aqui verifico se a foto existe
Kill sFoto 'Se existir, deleto
End If



Os meritos pelo código são do WCosta, apenas tentei esclarecer as coisas.

[]s
USUARIO.EXCLUIDOS 03/12/2006 12:18:35
#187655
cara deu certo...só q e eu selecionar uma foto que ja existe na pasta ele vai excluir...ai da erro que o arquivo no existe..q devo fazer
USUARIO.EXCLUIDOS 03/12/2006 12:26:13
#187659
Na verdade, ele só vai excluir se a foto EXISTIR.

If Dir(sFoto) <> "" Then 'Aqui verifico se a foto existe
Kill sFoto 'Se existir, deleto
End If


Este if acima garante que a foto só seja excluída se a mesma existir. Sendo assim, evitando erros.
Tópico encerrado , respostas não são mais permitidas
Voltar