Pessoal, como altero o caminho de salvamento para:

 

c:/Cadastro/Fotos

 

E se possível perguntar com que nome salvar.

 

Nessa sub:

 

Private Sub lvButtons_H5_Click()
On Error Resume Next
DoEvents
If Dir(App.Path & "myPic", vbDirectory) = "" Then MkDir (App.Path & "myPic")
File1.Path = App.Path & "myPic"
'File1.Pattern = "*.bmp"
File1.Pattern = "*.jpg"
File1.Refresh

Dim Maxnum As Integer, ii As Integer
For ii = 0 To File1.ListCount - 1
    If Left(File1.List(ii), 1) = "p" Then
        If CInt(Mid(File1.List(ii), 2, Len(File1.List(ii)) - 4)) > Maxnum Then
            Maxnum = CInt(Mid(File1.List(ii), 2, Len(File1.List(ii)) - 4))
        End If
    End If
Next

    'SavePicture Image1.Picture, App.Path & "myPicp" & Maxnum + 1 & ".bmp"
   
    Picture1.Picture = Image1.Picture
    SAVEJPEG App.Path & "myPicp" & Maxnum + 1 & ".jpg", 100, Me.Picture1
  DoEvents
End Sub

 

Grato

Flecha

Watson, deu certo

 

Será que colocando um ImputBox no inicio da sub, ele pode armazenar a resposta para colocar na gravação do arquivo nessa linha com o nome colocado no Imputbox?

 

SAVEJPEG "C:CADASTROSFOTOS" & AQUI A RESPOSTA DO IMPUTBOX & ".jpg", 100, Me.Picture1

 

Flecha

Amigo, a questão do InputBox funciona sim. Porém, devem ser feitas algumas verificações antes de jogar o nome direto no comando para salvar o arquivo.

Faça um tratamento do que foi digitado, se o conteúdo digitado é um nome válido pra arquivo.

Abraços.