Jump to content
Fórum Script Brasil
  • 0

Renomear Arquivos com VBA


Question

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 String
Dim myfolder As String

myfolder = "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ão
if 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 nome
Name myfolder & myfile As myfolder & newName

'code here to copy the fiel to another location
'filecopy myFolder & newName, destFolder & newName
myfile = Dir
Wend

End Sub

Edited by Leonardo Lobo
Link to post
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      148911
    • Total Posts
      645016
×
×
  • Create New...