|
|
Postada em 23/06/2004 09:51 hs
galera, kd as ideias, poxa sera que ninguem tem + uma ideia ai para me ajudar, ou outra forma de fazer isso.... por favor me de uma luz ai.... |
|
|
|
|
|
|
|
Postada em 23/06/2004 15:09 hs
Vá em references e selecione microsoft scripting runtime. depois coloque onde vc quer ver se existe o arquivo. dim Fsys As New Scripting.FileSystemObject depois vc procurar se o arquivo existe. if Fsys.FileExists('arquivo') then 'arquivo existe. else 'arquivo não existe. end if Acho q é isso
_______________________ Anjo Negro anjonegro86@ibest.com.br
|
|
|
|
|
|
Postada em 23/06/2004 15:51 hs
o erro continua, tentei de varias maneiras mas nao consegui corrir isso, se existe o caminha mas a imagem for excluida, ele procura pelo caminha, se nao encontra da erro... o tren chato.... esse tal de image.picture...... |
|
|
|
THECRAZY
|
BRASÍLIA
DF - BRASIL
|
|
ENUNCIADA !
|
|
|
|
CarlinhosBrown
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 23/06/2004 16:36 hs
........ ...... ...... ' vamos supor que eu estou carregando os campos no form, e quando chega a hora da imagem, o codigo segue abaixo... dim Fsys As New Scripting.FileSystemObject depois vc procurar se o arquivo existe. if Fsys.FileExists(CadPatrimonio("Foto")) then Image1.Picture = loadpicture("CadPatrimonio("Foto")") else Image1.Picture = loadpicture() end if ja tentei de varias formas, a ultima foi essa ai... ve se alguem tem uma ideia, pois, esgotou minha ideias como isso pode funcionar... No aguardo, agradeço a ajuda... |
|
|
|
Ama
|
UBERLÂNDIA
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 24/06/2004 00:26 hs
if Fsys.FileExists(CadPatrimonio("Foto")) then Image1.Picture = loadpicture("CadPatrimonio("Foto")") else Image1.Picture = loadpicture() end if se o arquivo não existe vc esta tentando carregar o que, se a figura não existe onde esta vermelho vc tem que entrar como foi te passado na primeira sugestao msgbox"esta figura não existe"......
Problema solucionado = click no cadeado para post encerrado!!!!!!!!!
|
|
|
|
