COMMONDIALOG DAR ERRO AO USAR O CANCELAR

WEBIER 09/10/2011 21:36:32
#386348
Tenho o seguinte codigo:

Private Sub lblProcurar_Click()
Dim FSys As New FileSystemObject [ô]referencia que nao deixa copiar arquivos duplicados (PROJECT / REFERENCES e selecionar MICROSOFT SCRIPTING RUNTIME)

CommonDialog1.Filter = [Ô]Imagens JPG(*.jpg)|*.jpg[Ô]
CommonDialog1.ShowOpen
txtCaminho.Text = CommonDialog1.FileName

If Not FSys.FileExists(Caminho & CommonDialog1.FileTitle) Then  [ô]se o arquivo nao existir na pasta ele copia
    FileCopy txtCaminho.Text, Caminho & CommonDialog1.FileTitle
End If
    txtCaminho.Text = Caminho & CommonDialog1.FileTitle
    picLogo.Picture = LoadPicture(txtCaminho.Text) [ô]mostrar a imagem
End Sub


A ideia é abrir o CommonDialog para escolher uma imagem e ao clicar no OK ele copiar a imagem para a pasta e exibir no picturebox... ISSO ELE TÁ FAZENDO.

Meu problema tá se eu abrir o CommonDialog1 e nao selecionar nenhuma imagem e clicar no CANCELAR ele dar erro:

Run-time error 75
Path/File access error

ou seja, ele procura pelo arquivo ou caminho e como nao encontra ele dar o erro
ele seleciona a linha:
    FileCopy txtCaminho.Text, Caminho & CommonDialog1.FileTitle
LANCECOM 09/10/2011 22:32:04
#386355
Procura +/- assim
comondialog.cancel = true then goto pula
ROBIU 10/10/2011 07:55:26
#386360 Resposta escolhida 
Dim FSys As New FileSystemObject [ô]referencia que nao deixa copiar arquivos duplicados (PROJECT / REFERENCES e selecionar MICROSOFT SCRIPTING RUNTIME)
    
    CommonDialog1.Filter = [Ô]Imagens JPG(*.jpg)|*.jpg[Ô]
    CommonDialog1.ShowOpen
    TxtCaminho.Text = CommonDialog1.FileName
    If (CommonDialog1.FileName = [Ô][Ô]) Then Exit Sub
    If Not FSys.FileExists(Caminho & CommonDialog1.FileTitle) Then  [ô]se o arquivo nao existir na pasta ele copia
        FileCopy TxtCaminho.Text, Caminho & CommonDialog1.FileTitle
    End If
        TxtCaminho.Text = Caminho & CommonDialog1.FileTitle
        PicLogo.Picture = LoadPicture(TxtCaminho.Text) [ô]mostrar a imagem
    Set FSys = Nothing
Tópico encerrado , respostas não são mais permitidas
Voltar