Printable View
Hi
Im trying to comunicate with a FTP server,where i want to execute a program,but i don`t know how.
I tryed with psexec..something like this
But cmd.exe is opening on my computer..is the first time when im using psexec and i don`t know how..and im not an advanced.Code:Dim command As String
command = Shell("CMD.exe")
Dim systemName As String
systemName = "IP" 'Here im using the IP'
Shell("psexec \\" & systemName & command)
Sorry for my bad english.
Use Windows Explorer, type FTP:// and the address of the FTP Server
It will prompt you for the user name/password, and you can remember it.
I have a CMD script that opens the site, I drag a file, and close it for the week.
Works fine.
No like that,i wan`t to make a program and when you run it,on that ftp server is runing another program and is register something,and i will know who runned the program,let`s say i want to do it for another pc not for ftp..Quote:
Originally Posted by dglienna
How to do it?
only solution is to download it from the FTP server, and then run it from the local drive...
But psexec is only for Lan connections?
The program will be on my site and downloaded by users..and when will run it to run cmd.exe and a 'command' on another pc..
FTP: is a File server... It is like having a External HDD , Flash stick or memory card..
YOU CANNOT EXECUTE any code on the Server via FTP.. It is not designed for this, does not allow this and will never do this, ever....
Download and execute from temp folder.
Ok,let`s say i wan`t to execute on a pc,please give me an example.
Use a FTP Batch Script to download the file then you can use
Code:Shell("File.exe")
what y want to perform with ftp ?download some files from ftp .upload on ftp or something other ?let me know very exactly .:wave:Quote:
Im trying to comunicate with a FTP server,where i want to execute a program,but i don`t know how.
use this method .try the following way .i have been using in hundreds of application .we are no one retail company in Kuwait city .go through the following way .Quote:
Use a FTP Batch Script to download the file then you can use
Code:Public Function DownloadFile() As Boolean
Dim strMsg$
Dim strLine$
Dim gstrMessage$
Dim processID#
Dim process_handle#
Dim zipapfilepath$
Dim BatchPathLoc As String
Dim DownloadFilepath$
Dim FTPCommandList As String
'------------------------ Authentication--------------------------
DownloadFilepath = "\Inditexx\Download"
Call CheckInditexFolder(DownloadFilepath)
FTPCommandList = strDwnldFilePth & "\FTPCommandList.txt"
Open FTPCommandList For Output As #1
strLine = ""
strLine = "USERNAME" & vbCrLf & _
"PASSWORD" & vbCrLf & _
"ascii" & vbCrLf & _
"prompt off" & vbCrLf & _
"cd /outgoing/articles/" & vbCrLf & _
"mget ART*.ZIP" & vbCrLf & _
"close" & vbCrLf & _
"bye" & vbCrLf
Print #1, strLine
Close #1
BatchPathLoc = strDwnldFilePth & "\FTPDownBatchFile.bat"
Open BatchPathLoc For Output As #1
strLine = ""
strLine = "C:" & vbCrLf & _
"cd " & DownloadFilepath & vbCrLf & _
"C:\WINDOWS\system32\ftp.exe -s:" & FTPCommandList & " ftp1.inditex.com" & vbCrLf
Print #1, strLine
Close #1
'----------------------- Downloading Data with FTP ------------------------------
processID = Shell(BatchPathLoc, vbHide)
process_handle = OpenProcess(SYNCHRONIZE, 0, processID)
'NOT NEEDED--->If process_handle <> 0 Then
WaitForSingleObject process_handle, INFINITE
CloseHandle process_handle
'NOT NEEDED--->End If
gstrMessage = gstrMessage & "Searching for files in <IN> folder" & vbCrLf
'gstrMessageToUser = gstrMessageToUser & "Searching for files in <IN> folder" & vbCrLf
'
' Use your own path instead of \projectFTPData or create this folder on your C drive
'
If Dir$("c:\Inditexx\Download" & "\ART*.ZIP") = "" Then
strMsg = strMsg & "No files on FTP to download" & vbCrLf
MsgBox strMsg
Exit Function
Else
DownloadFile = True
strMsg = strMsg & "Files Downloaded from FTP" & vbCrLf
MsgBox strMsg
End If
End Function
Public Sub CheckInditexFolder(path As String)
If Dir("C:\Inditexx", vbDirectory) = "" Then
MkDir "C:\Inditexx"
End If
If Dir("C:\Inditexx\download", vbDirectory) = "" Then
MkDir "C:\Inditexx\download"
End If
End Sub
BE CAREFUL about your language and attitude on the forums..Quote:
Originally Posted by firoz.raj
The AUP (Acceptable Use Policy) is Very Clear on this
The OP did say..Quote:
*You will not post any Content that is knowingly false, misleading, or inaccurate.
*You will not behave in an abusive and/or hateful manner, and will not harass, threaten, nor attack anyone.
*You will not use profanity
And your code is nothing more than an Overly advanced way of doing what was proposed.Quote:
Originally Posted by TzAkS
Lets look at it..
This code creates a Text file for use as a FTP Batch file with all the commands that are needed by ftp..Code:FTPCommandList = strDwnldFilePth & "\FTPCommandList.txt"
Open FTPCommandList For Output As #1
strLine = "USERNAME" & vbCrLf & _
"PASSWORD" & vbCrLf & _
"ascii" & vbCrLf & _
"prompt off" & vbCrLf & _
"cd /outgoing/articles/" & vbCrLf & _
"mget ART*.ZIP" & vbCrLf & _
"close" & vbCrLf & _
"bye" & vbCrLf
Print #1, strLine
Make a Batch command file to execute FTP.Code:BatchPathLoc = strDwnldFilePth & "\FTPDownBatchFile.bat"
Open BatchPathLoc For Output As #1
strLine = "C:" & vbCrLf & _
"cd " & DownloadFilepath & vbCrLf & _
"C:\WINDOWS\system32\ftp.exe -s:" & FTPCommandList & " ftp1.inditex.com" & vbCrLf
Print #1, strLine
[code]processID = Shell(BatchPathLoc, vbHide)[/quote]
Use Shell to execute the batch files....
Hmmmm ... EXACTLY the same as was proposed... just made very complicated..
and looking back at your comment, seems you Shot down the exact method your using anyway, so i have no idea how you can claim,...Quote:
Originally Posted by firoz.raj