2 Replies Latest reply: Mar 24, 2018 12:04 PM by Agnaldo Neves RSS

    Apagar arquivos antes de atualizar na pasta

    Agnaldo Neves

      O código vba abaixo esta correto.

      Mas antes de atualizar novos arquivos preciso apagar os arquivos do caminho os arquivos em

      FTPDir = "/public_html/teste/conquista/"

       

      Alguma sugestão?

       

       

      Set oShell = CreateObject("Shell.Application")
      
      
      Set objFSO = CreateObject("Scripting.FileSystemObject")
      
      
      'Path to file or folder to upload
      
      
      path = "C:\tmp\file.csv"
      path = "C:\tmp\file1.csv"
      Sub FTPUpload
      On Error Resume Next
      Const copyType = 16
      
      'FTP Wait Time in ms
      
      
      waitTime = 80000
      
      
      'Configuración FTP
      
      
      FTPUser = "xxxxx"
      
      
      FTPPass = "xxxxxxx"
      
      
      FTPHost = "xxxxxxxxxxxxx"
      
      
      FTPDir = "/public_html/teste/conquista/"
      
      
      strFTP = "ftp://" & FTPUser & ":" & FTPPass & "@" & FTPHost & FTPDir
      
      
      Set objFTP = oShell.NameSpace(strFTP)
      
      'Upload single file    
      
      
      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