Unable to download files from FTP server

Thanks for your reply - as you said, downloading files with a web browser in both modes (internet with fixed IP and dynamic internet) is done without problems. The problem of downloading files from the server occurs when we want to use the Windows command line or VBA codes

Well, you can't us the Microsoft FTP client, so that's off the table.

If your VBA code is using the .Net FTP class you can set passive mode in that code. Or you can use the same logic as the VBA code in a PowerShell script. Or you can avoid using even the .Net FTP class and just use the .Net WebClient class to download the file.

Or, you find a free command-line FTP client (or a GUI-based one), or you can use SCP.

Private Const FTP_TRANSFER_TYPE_UNKNOWN     As Long = 0
Private Const INTERNET_FLAG_RELOAD          As Long = &H80000000

Private Declare PtrSafe Function InternetOpenA Lib "wininet.dll" ( _
    ByVal sAgent As String, _
    ByVal lAccessType As Long, _
    ByVal sProxyName As String, _
    ByVal sProxyBypass As String, _
    ByVal lFlags As Long) As LongPtr

Private Declare PtrSafe Function InternetConnectA Lib "wininet.dll" ( _
    ByVal hInternetSession As LongPtr, _
    ByVal sServerName As String, _
    ByVal nServerPort As Long, _
    ByVal sUsername As String, _
    ByVal sPassword As String, _
    ByVal lService As Long, _
    ByVal lFlags As Long, _
    ByVal lcontext As Long) As LongPtr

Private Declare PtrSafe Function FtpGetFileA Lib "wininet.dll" ( _
    ByVal hConnect As LongPtr, _
    ByVal lpszRemoteFile As String, _
    ByVal lpszNewFile As String, _
    ByVal fFailIfExists As Long, _
    ByVal dwFlagsAndAttributes As Long, _
    ByVal dwFlags As Long, _
    ByVal dwContext As Long) As LongPtr

Private Declare PtrSafe Function InternetCloseHandle Lib "wininet" ( _
    ByVal hInet As LongPtr) As LongPtr

------------------------------------------------------------------

Sub FtpDownload(ByVal strRemoteFile As String, ByVal strLocalFile As String, ByVal strHost As String, ByVal lngPort As Long, ByVal strUser As String, ByVal strPass As String)
    Dim hOpen   As LongPtr
    Dim hConn   As LongPtr

    hOpen = InternetOpenA("FTPGET", 1, vbNullString, vbNullString, 1)
    hConn = InternetConnectA(hOpen, strHost, lngPort, strUser, strPass, 1, 0, 2)
           Dim filename As String

  If FtpGetFileA(hConn, strRemoteFile, strLocalFile, 1, 0, FTP_TRANSFER_TYPE_UNKNOWN Or INTERNET_FLAG_RELOAD, 0) Then
        MsgBox "download ok", vbInformation, "Pars Royan"
    Else
        MsgBox "fail", vbInformation, "Pars Royan"

    End If

    'Close connections
    InternetCloseHandle hConn
    InternetCloseHandle hOpen

End Sub

------------------------------------------------------------------

Public Sub Download()

   FtpDownload strRemoteFile:="//public_ftp/text.txt", _
                strLocalFile:="D:\town finance/text.txt", _
                strHost:="188.40.58.14", _
                lngPort:=21, _
                strUser:="xxxxxx", _
                strPass:="nnnnnn"

End Sub

I used the above code in an accounting software that I designed so that users can download the new version of the software.