daily pastebin goal
38%
SHARE
TWEET

Untitled

a guest Jan 25th, 2016 74 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Set oShell = CreateObject("Shell.Application")
  2. Set objFSO = CreateObject("Scripting.FileSystemObject")
  3.  set objShell = CreateObject("WScript.Shell")
  4.  
  5. 'Copy Options: 16 = Yes to All
  6. Const copyType = 16
  7.  
  8. 'FTP Wait Time in ms
  9. waitTime = 80000
  10.  
  11. FTPUser = "myuser"
  12. FTPPass = "mypass"
  13. FTPHost = "ftp IP"
  14. FTPDir = "/Creative/"
  15.  
  16. strFTP = "ftp://" & FTPUser & "+" & FTPPass & "@" & FTPHost & FTPDir
  17. Set objFTP = oShell.NameSpace(strFTP)
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top