4 Replies Latest reply: Mar 26, 2018 11:15 AM by Alessandro Furtado RSS

    Como copia arquivos de uma pasta

    Agnaldo Neves

      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