VBA TO SEND TXT FILE TO FTP SERVER

[BINOD SHARMA]

My Friends, I have downloaded a vba code to send txt file from desktop to ftp server but I unable to understand why it"s not working ?
Can any one help
Sub IP_SERVER_IP()
Dim vPath As String
Dim vFile As String
Dim vFTPServ As String
Dim fNum As Long

vPath = ThisWorkbook.Path
vFile = "BKSSS.txt"
vFTPServ = "ftp://10.44.115.123"

'Mounting file command for ftp.exe
fNum = FreeFile()
Open vPath & "\BKSSS.txt" For Output As #fNum
Print #1, "user ***** *****" ' your login and password"
Print #1, "cd TargetDir" 'change to dir on server
Print #1, "put " & vPath & "\" & vFile & " " & vFile ' upload local filename to server file
Print #1, "close" ' close connection
Print #1, "quit" ' Quit ftp program
Close

Shell "ftp -n -i -g -s:" & vPath & "\BKSSS.txt " & vFTPServ, vbNormalNoFocus

SetAttr vPath & "\BKSSS.txt", vbNormal
Kill vPath & "\BKSSS.txt"
me.

code is -

​

 

[rlv01]

The code you have downloaded is generic. If you tried to use it without changing anything that would explain why it is not working. Unless you edit it to add *your* specific information (directories, IPaddr, username, password, etc.) it is not going to work for you. The only point of the VBA macro is to automate the commands you would manually use to run FTP, so unless you are able to to open a CMD window:

and manually use FTP to successfully transfer files in order to prove that with the correct information, FTP on your PC will work, the odds are against you being able to get the VBA macro to work.