Public my_names( 1  To  5 ) As String
'путь к утилите ftp.exe В win 2000"c:\winnt\system32\ftp.exe"
Public Const FTPprogrampath As String = "C:\WINDOWS\system32\ftp.exe"
Public Const localFolder As String = "c:\hr\"
Public Const remoteFolder As String = "/in/"
Public Const ftp_host As String = "192.168.1.113"
Public Const user_name As String = "test"
Public Const psw As String = "test"

Option Explicit

Sub engine()

    PerformFileTransfer "mget", True
    
    Module1.Anketa
    
    PerformFileTransfer "mdel", False
    
    PerformFileTransfer "mput", False
    
    msgbox ("Все данные успешно выгружены!")

End Sub

Sub PerformFileTransfer(TransferCommand As String, kill_old As Boolean)

Dim i As Double, transferMode As String, j As Integer
Dim curFolder As String ', localFolder As String, remoteFolder As String
'очищаем старые файлы из локальной директории
Dim fs, my_names, nam
Set fs = CreateObject("Scripting.FileSystemObject")
If kill_old = True Then
    If Not fs.FolderExists(localFolder) Then
        fs.CreateFolder (localFolder)
    Else
        If fs.FileExists(localFolder & "com.csv") Then
            Kill localFolder & "\*.csv" '?
        End If
    End If
End If
'''''''''''''''''''
If Dir(FTPprogrampath) = "" Then
    msgbox "Please enter the correct path and file name to the FTP program.", _
        vbExclamation, "Invalid FTP program path and file name"
    Exit Sub
End If
If TransferCommand <> "mget" And TransferCommand <> "mput" Then
    msgbox "Valid commands are ""mget"" and ""mput"".", vbExclamation, "Invalid transfer command"
    Exit Sub
End If
If Right(localFolder,  1 ) <> "\" Then
    msgbox "Add a ""\"" at the end of the local folder name.", _
        vbExclamation, "Missing path separator!"
    Exit Sub
End If
If remoteFolder <> "" Then
    If Right(remoteFolder,  1 ) <> "/" Then
        msgbox "Add a ""/"" at the end of the remote folder name.", _
            vbExclamation, "Missing path separator!"
        Exit Sub
    End If
End If
curFolder = CurDir
On Error Resume Next
ChDrive Left(localFolder,  1 ) ' change drive
ChDir localFolder ' change to the local folder
'On Error GoTo 0
i = Shell(FTPprogrampath, vbMaximizedFocus) ' start ftp program
Application.Wait Now + TimeValue("00:00:05") ' give the program time to activate
PerformSendKeys "open " & ftp_host 'Range("B3").Formula ' open the connection
PerformSendKeys user_name 'Range("B4").Formula ' enter username
PerformSendKeys psw 'Range("B5").Formula ' enter password
PerformSendKeys "hash" ' enable hash markings for each datablock transfered (2048 byte)
PerformSendKeys "prompt" ' disable confirmation prompts
If remoteFolder <> "" Then PerformSendKeys "cd " & remoteFolder ' change to the remote folder
' start file transfer

transferMode = "ascii"
PerformSendKeys transferMode ' режим ascii для текстовых файлов, binary для остальных
'        For Each nam In my_names
    If TransferCommand = "mget" Then ' получаем файлы с ftp
        PerformSendKeys TransferCommand & " " & remoteFolder & "*.csv"
    End If
    If TransferCommand = "mdel" Then ' удаляем старые файлы с ftp
        PerformSendKeys TransferCommand & " " & remoteFolder & "*.csv"
    End If
    If TransferCommand = "mput" Then ' кладем новые файлы на ftp
        Application.Wait Now + TimeValue("00:00:01") 'd
        PerformSendKeys TransferCommand & " " & localFolder & "*.csv"
    End If

    'PerformSendKeys "y", 10 ' acknowledge transfer if not confirmation promts are disabled
Application.Wait Now + TimeValue("00:00:01") 'd
PerformSendKeys "bye" ' disconnect and quit FTP
'    PerformSendKeys "exit" ' close shell
AppActivate Application.Caption ' activate this program
ChDrive Left(curFolder,  1 ) ' change drive
ChDir curFolder ' change back to the initial folder
End Sub

Sub PerformSendKeys(KeyString As String)
    SendKeys KeyString, True ' send KeyString
    SendKeys "~", True ' send ENTER key
End Sub