Estou tentando fazer uma macro que cria uma pasta, já consegui essa parte, e que deveria pegar umas fotos e colocar nessa pasta. Estou tentando fazer com o Filesystemobject, porém, quando tento mover o objeto foto (foto.MoveFile) dá sempre o erro "O objeto não aceita essa propriedade ou metodo". alguém pode ajudar?
Segue abaixo parte do código:
'Encontrar fotos
Set arquivo = CreateObject("Scripting.Filesystemobject").getfolder(pasta)
Set foto = CreateObject("Scripting.FileSystemObject")
PastaOrigem = cPath & "\" & cliente & "\Fotos"
PastaDestino = cPath & "\" & cliente & "\Fotos\" & site
For Each foto In arquivo.Files
If Left(site, 4) Like Left(foto.Name, 4) Then
Pergunta
FRC
Boa Tarde a todos!
Estou tentando fazer uma macro que cria uma pasta, já consegui essa parte, e que deveria pegar umas fotos e colocar nessa pasta. Estou tentando fazer com o Filesystemobject, porém, quando tento mover o objeto foto (foto.MoveFile) dá sempre o erro "O objeto não aceita essa propriedade ou metodo". alguém pode ajudar?
Segue abaixo parte do código:
'Encontrar fotos
Set arquivo = CreateObject("Scripting.Filesystemobject").getfolder(pasta)
Set foto = CreateObject("Scripting.FileSystemObject")
PastaOrigem = cPath & "\" & cliente & "\Fotos"
PastaDestino = cPath & "\" & cliente & "\Fotos\" & site
For Each foto In arquivo.Files
If Left(site, 4) Like Left(foto.Name, 4) Then
foto.MoveFile PastaOrigem, PastaDestino
End If
Next
End Sub
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.