Dim fromFile As String

    Dim toDir As String

    Dim fso As New FileSystemObject

    Dim cel As Range

    Dim localFile As String

    

    Set cel = ActiveCell

    fromFile = cel.value

    Set cel = cel.Offset(1, 1)

    toDir = "D:\work\data\" & Format(Now(), "yyyymmdd")

    Call createDir(toDir) 

    Call getByFTP(fromFile, toDir)

    localFile = toDir & "\" & fso.getFilename(fromFile)

    If Not fso.FileExists(localFile) Then

        Sleep 500

    End If

    cel.vallue = localFile

    Set cel = cel.Offset(1, 1)

    'Call readTextFile(localFile, cel)

End Sub

Private Function getByFTP(fromFile As String, toDir As String) As String

    Dim ret As String

    getByFTP = runCmd("java.exe -classpath commons-cli-1.0.jar;commons-io-1.4.jar;commons-net-3.3.jar; jp.btsol.ftp.FTPUtilsGet -f " & fromFile & " -d " & toDir & " -u username -p password -s XXX.XXX.XXX.XXX ")

    Debug.Print getByFTP

End Function