[Resolvido]Salvar Imagem em HD, contida em Controle Active X, em pasta especifica, renomeando o arquivo

Amigos.. tenho este código que salva a imagem em HD através de um controle ActiveX CommonDialog....

Preciso que na hora de salvar,abra uma pasta ja existente (Pasta com Nome = ID.. 1,2,3,4 etc..) e renomeie o arquivo de acordo com o texto contido em uma caixa texto no form..

Exemplo
Caixa texto no form = 01
Caixa texto1 no form = Polegar
Caixa texto2 no form = Direito

Ao clicar em salvar...

Nome da Imagem: Polegar Direito
Abrir pasta a ser salva: C:\syspen\Imagens\1


Eis o código:

Código:

Private Sub menuImgSave_Click()
On Error GoTo TrataErro

    ' Tem que haver uma imgagem válida no objeto picture
    If raw.height < 1 Or raw.widht < 1 Then
        MsgBox "Não há imagem a salvar."
        Exit Sub
    End If
       
    ' abre  a caixa de diálogo com a opção "save"
    CommonDialog.Filter = "BMP files (*.bmp)|*.bmp|All files (*.*)|*.*"
    CommonDialog.FilterIndex = 1
    CommonDialog.FileName = ""
    CommonDialog.ShowSave
   
    ' Salva imagem
    If Not CommonDialog.CancelError And CommonDialog.FileName <> "" Then
        If Form_frmFinger.GrFingerXCtrl1.CapSaveRawImageToFile(raw.img, raw.height, raw.widht, CommonDialog.FileName, GRCAP_IMAGE_FORMAT_BMP) <> GR_OK Then
            EscreveLog ("Falha ao Salvar o Arquivo")
        End If
    End If

Exit Sub

Fico grato pela ajuda

Com relação ao nome do arquivo ja resolvi:

' abre a caixa de diálogo com a opção "save"
CommonDialog.Filter = "BMP files (*.bmp)|*.bmp|All files (*.*)|*.*"
CommonDialog.FilterIndex = 1
CommonDialog.FileName = "" & Me.txtDedo & "" & Me.txtMao & ""
CommonDialog.ShowSave

No entando precisaria especificar o caminho no HD

Consegui resolver. O Objeto CommonDialog, permite varias configurações para o seu uso..
Ao se digitar no código ele ja exibe sugestões para tal.

Código completo:

Código:

Private Sub menuImgSave_Click()
On Error GoTo TrataErro
Dim StrMsg

        If IsNull(txtBotao) = False Then GoTo ContinuarSalvar

            StrMsg = MsgBox("Não foi selecionado o dedo a ser digitalizado" & vbCrLf & _
            "Grave primeiramente a Digital no Banco de Dados" & vbCrLf & _
            "Para salvar a imagem sem cadastrar, clique em SIM", vbYesNo, "Atenção!")
       
If StrMsg = vbYes Then
    ' Tem que haver uma imgagem válida no objeto picture
    If raw.height < 1 Or raw.widht < 1 Then
        MsgBox "Não há imagem a salvar."
        Exit Sub
    End If
       
    ' abre  a caixa de diálogo com a opção "save"
    CommonDialog.InitDir = "C:\"
    CommonDialog.Filter = "BMP files (*.bmp)|*.bmp|All files (*.*)|*.*"
    CommonDialog.FilterIndex = 1
    CommonDialog.DialogTitle = "Salvar imagem da Impressão Digital"
    CommonDialog.FileName = ""
    CommonDialog.ShowSave
   
    ' Salva imagem
    If Not CommonDialog.CancelError And CommonDialog.FileName <> "" Then
        If Form_frmFinger.GrFingerXCtrl1.CapSaveRawImageToFile(raw.img, raw.height, raw.widht, CommonDialog.FileName, GRCAP_IMAGE_FORMAT_BMP) <> GR_OK Then
            EscreveLog ("Falha ao Salvar o Arquivo")
        End If
    End If
        Exit Sub
        Else
    End If


    Exit Sub

ContinuarSalvar:
    ' Tem que haver uma imgagem válida no objeto picture
    If raw.height < 1 Or raw.widht < 1 Then
        MsgBox "Não há imagem a salvar."
        Exit Sub
    End If
       
    ' abre  a caixa de diálogo com a opção "save"
    CommonDialog.InitDir = "C:\Syspen\Imagens\" & Me.txtID
    CommonDialog.Filter = "BMP files (*.bmp)|*.bmp|All files (*.*)|*.*"
    CommonDialog.FilterIndex = 1
    CommonDialog.FileName = "" & Me.txtDedo & "" & Me.txtMao & ""
    CommonDialog.DialogTitle = "Salvando Imagem pra o Dedo " & "" & Me.txtDedo & "" & Me.txtMao & "" & Space(1) & ", DETENTO: " & "" & Me.CboDetento.Column(1) & ""
    CommonDialog.ShowSave
   
    ' Salva imagem
    If Not CommonDialog.CancelError And CommonDialog.FileName <> "" Then
        If Form_frmFinger.GrFingerXCtrl1.CapSaveRawImageToFile(raw.img, raw.height, raw.widht, CommonDialog.FileName, GRCAP_IMAGE_FORMAT_BMP) <> GR_OK Then
            EscreveLog ("Falha ao Salvar o Arquivo")
        End If
    End If

Exit Sub


TrataErro:
    DoCmd.SetWarnings True
    DoCmd.Hourglass False
    MsgBox Error, , "Erro nº" & Err & " ao clicar em Salvar Imagem"
End Sub

Saudações