[Resolvido]Transferir imagem do celular para uma pasta

Copie, daqui, uma rotina que seleciona uma imagem em uma pasta e insere no banco de dados. Funciona muito bem quando a imagem está em uma pasta do desktop mas não consegue selecionar uma imagem do celular, conectado ao computador via cabo de dados. Alguém tem uma luz sobre o assunto ?

Consegui esta rotina, aqui mesmo, que, adaptada, resolve a questão :

Function btCarregar()

Dim wzFileName As String
Dim wzCancelled As Boolean
Dim ret As Boolean
Dim strArq As String
Dim booSobrescreve As Boolean
booSobrescreve = True
WizHook.Key = 51488399
ret = WizHook.OpenPictureFile(wzFileName, wzCancelled)

If Not wzCancelled Then

strArq1 = Split(wzFileName, "\")(UBound(Split(wzFileName, "\")))
strArq = [coloque o caminho desejado] & "\" & strArq1

If Dir(strArq) <> "" Then
If strArq <> wzFileName Then
Call MsgBox("Um arquivo com este nome já existe na pasta.", vbInformation, "Aviso")
Call Beep
booSobrescreve = MsgBox("Deseja sobrescrevê-lo?", vbQuestion + vbYesNo + vbDefaultButton2, "Opa") = vbYes
Else
booSobrescreve = False
End If
End If
If booSobrescreve Then
Call CreateObject("Scripting.FileSystemObject").copyfile(wzFileName, strArq)
End If
End If

End Function