Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
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
sub Move
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.copyFile "C:\tmp\Videos\*.*", "C:\tmp\Ipad\"
end sub
basta colocar os diretórios que você quer
Alessandro,
O Código que você me passou, eu preciso que seja para ftp
Pois precisa de usuário e senha.
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