Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Option Explicit Const ForWriting = 2 Dim objOutStream, objjFSO, objShell Set objFSO = CreateObject("Scripting.FileSystemObject") Set objOutStream = objFSO.OpenTextFile("C:\temp\temp\empty.txt", ForWriting, True) With objOutStream .WriteLine "USER myuser" ' USERNAME .WriteLine "mypass" ' Password .WriteLine "binary" .WriteLine "lcd /foldertocopyfrom" ' FOLDER I'm changing into .WriteLine "mget *" ' Get all files with today's date in it .WriteLine "quit" .Close End With Set objShell = CreateObject("WScript.Shell") objShell.Run "%comspec% /c FTP -n -i -s:" & "C:\temp\temp\empty.txt" & " " & "ftp.location.com", 0, True
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.