Ola amigos
Tenho um codigo abaixo que não consigo ajustar um erro que esta ocorrendo. Peço o seu auxilio de um desenvolvedor já que eu sou usuario avancado mas sem programacao. Apenas trabalho com desenvolvimento interno de minhas rotinas
" Erro em tempo de execucao '5'Argumento ou chamada de procedimento invalida "
Segue codigo
Private Sub Comando0_Click()Dim myfile As String, newFile As StringDim myfolder As Stringmyfolder = "C:\Users\Samsung\Downloads\"myfile = Dir(myfolder & "*.jpg")While myfile <> ""newName = Left(myfile, 7) & ".jpg"'se na pasta já houver um arquivo com o nome do novo arquivo entãoif dir(myFolder & newName) <> "" then 'apague esse arquivo que já existe call kill(myFolder & newName)end if'renomeando o arquivo com a certeza de que não haverá um outro arquivo com o novo nomeName myfolder & myfile As myfolder & newName'code here to copy the fiel to another location'filecopy myFolder & newName, destFolder & newNamemyfile = DirWendEnd Sub