Qlik Community

Qlik Brasil

Group community for Brazil users. discussion only in Portuguese.

Highlighted
agnaldoneves
Valued Contributor

Como copia arquivos de uma pasta

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?

2018-03-25_12-00-47.png

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

Agnaldo Neves
Programador de Sistemas
Tags (1)
1 Solution

Accepted Solutions
MVP
MVP

Re: Como copia arquivos de uma pasta

basta colocar os diretórios que você quer

4 Replies
MVP
MVP

Re: Como copia arquivos de uma pasta

sub Move

     Dim fso

     Set fso = CreateObject("Scripting.FileSystemObject")

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

end sub

MVP
MVP

Re: Como copia arquivos de uma pasta

basta colocar os diretórios que você quer

agnaldoneves
Valued Contributor

Re: Como copia arquivos de uma pasta

Alessandro,

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

Pois precisa de usuário e senha.

Agnaldo Neves
Programador de Sistemas
MVP
MVP

Re: Como copia arquivos de uma pasta

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