strLocalFolderName = "r:\temp"
    strFTPServerName = "192.168.x.x"
    strLoginID = "login"
    strPassword = "pass"
    strFTPServerFolder = "dir1"
    strFile2Get = "*.*"
    strFTPScriptFileName = "ftp_commands.txt"

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    'objFSO.Visible=False
    Set objMyFile = objFSO.CreateTextFile(strFTPScriptFileName, True)
    
    objMyFile.WriteLine ("open " & strFTPServerName)
    objMyFile.WriteLine (strLoginID)
    objMyFile.WriteLine (strPassword)
    objMyFile.WriteLine ("cd " & strFTPServerFolder)
    objMyFile.WriteLine ("ascii")
    objMyFile.WriteLine ("lcd " & strLocalFolderName)
    objMyFile.WriteLine ("mget " & strFile2Get)
'    objMyFile.WriteLine ("mdelete " & strFile2Get)
    objMyFile.WriteLine ("bye")
    objMyFile.Close
    
  
    Set objShell = CreateObject("WScript.Shell")
    objShell.Run "ftp -i -s:" & strFTPScriptFileName & " >>FTPLog.txt", 1, True
    Set objFSO = Nothing
    Set objMyFile = Nothing
    Set objShell = Nothing