MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
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
|Index Match Vlook up for a master file||7||70|
|Recursive folder search vbscript||7||55|
|Problem to open text file||11||128|
|VBA that opens file in a directory and extracts certain columns beginning at a certain row||5||30|