Como copia arquivos de uma pasta

[Ribeiro]

O código abaixo está funcionado..

Mas onde está

path = "C:\exportar\file.csv"

path = "C:\exportar\file1.csv"

Preciso que ele pegue os arquivos da pasta que o arquivo tem nome dinamico.

Ou seja preciso pegar todos os arquivos da pasta e salvar dentro do caminho abaixo.

Como eu faria no macro abaixo em vba?

Set oShell = CreateObject("Shell.Application")


Set objFSO = CreateObject("Scripting.FileSystemObject")


path = "C:\exportar\file.csv"
path = "C:\exportar\file1.csv"



Sub FTPUpload


On Error Resume Next


Const copyType = 16


waitTime = 80000


FTPUser = ""


FTPPass = ""


FTPHost = ""


FTPDir = "/public_html/teste/conquista/"
strFTP = "ftp://" & FTPUser & ":" & FTPPass & "@" & FTPHost & FTPDir


Set objFTP = oShell.NameSpace(strFTP)


If objFSO.FileExists(path) Then


Set objFile = objFSO.getFile(path)


strParent = objFile.ParentFolder


Set objFolder = oShell.NameSpace(strParent)


Set objItem = objFolder.ParseName(objFile.Name)


objFTP.CopyHere objItem, copyType


End If


WScript.Sleep waitTime


End Sub


sub ExportChartToCustomDelimitedFile 

[afurtado]

sub Move

     Dim fso

     Set fso = CreateObject("Scripting.FileSystemObject")

     fso.copyFile "C:\tmp\Videos\*.*", "C:\tmp\Ipad\"

end sub

[afurtado · Accepted solution]

basta colocar os diretórios que você quer

[Ribeiro]

Alessandro,

O Código que você me passou, eu preciso que seja para ftp

Pois precisa de usuário e senha.

[afurtado]

Agnaldo,

o codigo vbs para isto é grande.

Não seria melhor usar powershell command line para isto?

Ai na carga, da para usar o EXECUTE chamando o comando para levantar arquivo por ftp