FTP Connect & File Upload

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

FTP Connect & File Upload

Logged in as: Guest

arrSession:exec spGetSession 2,2,61947

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> FTP Connect & File Upload
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

FTP Connect & File Upload - 6/28/2008 5:48:35 AM

zeddjb

Posts: 1
Score: 0
Joined: 6/28/2008
Status: offline

I'm sort of new to VBS so bare with me please.

I have an FTP site and I am using CerberusFTP Server. The server works just fine for me, almost flawlessly. What I would like to do is make a VBS that will connect to my FTP from a remote location and upload a folder. I would only like it to run when double-clicked from the remote computer. I want this folder to be overwriten when it is run.

Reason: I run an FTP server not only for me, but my father also uses it to back-up his pictures and other folders. From that, I create backups of the system. It's sort of a small time non-profit buisness that I do for my family. The method he uses now to copy those folders is all done manually, and he is, lets say not exactly a computer genius. In fact, most the time I have to VNC into his computer from my house and start the process myself.

If anyone has a set of VBS code I could look at or point me to that would be great. I do have a little knoledge of VB, as I did take a VB class. So you don't have to break it down all the way to barny style.

Thanks.

Post #: 1

RE: FTP Connect & File Upload - 6/29/2008 3:19:42 AM

yfki

Posts: 73
Score: 0
Joined: 12/12/2007
Status: offline

Check this out..

http://www.naterice.com/blog/template_permalink.asp?id=51

Wscript.Echo FTPDownload("192.168.1.1", "domain\user", "password", "C:\", "\", "123.txt")
Wscript.Echo FTPUpload("192.168.1.1", "domain\user", "password", "C:\123.txt", "\")

[size="1"]Function FTPUpload(sSite, sUsername, sPassword, sLocalFile, sRemotePath)
[/size][size="1"]  'This script is provided under the Creative Commons license located
 'at [link=http://creativecommons.org/licenses/by-nc/2.5/]http://creativecommons.org/licenses/by-nc/2.5/[/link] . It may not
 'be used for commercial purposes with out the expressed written consent
 'of NateRice.com

[/size][size="1"]  Const OpenAsDefault = -2
 Const FailIfNotExist = 0
 Const ForReading = 1
 Const ForWriting = 2
 
 Set oFTPScriptFSO = CreateObject("Scripting.FileSystemObject")
 Set oFTPScriptShell = CreateObject("WScript.Shell")

sRemotePath = Trim(sRemotePath)
 sLocalFile = Trim(sLocalFile)
 
 '----------Path Checks---------
 'Here we willcheck the path, if it contains
 'spaces then we need to add quotes to ensure
 'it parses correctly.
 If InStr(sRemotePath, " ") > 0 Then
   If Left(sRemotePath, 1) <> """" And Right(sRemotePath, 1) <> """" Then
     sRemotePath = """" & sRemotePath & """"
   End If
 End If
 
 If InStr(sLocalFile, " ") > 0 Then
   If Left(sLocalFile, 1) <> """" And Right(sLocalFile, 1) <> """" Then
     sLocalFile = """" & sLocalFile & """"
   End If
 End If

'Check to ensure that a remote path was
 'passed. If it's blank then pass a "\"
 If Len(sRemotePath) = 0 Then
   'Please note that no premptive checking of the
   'remote path is done. If it does not exist for some
   'reason. Unexpected results may occur.
   sRemotePath = "\"
 End If
 
 'Check the local path and file to ensure
 'that either the a file that exists was
 'passed or a wildcard was passed.
 If InStr(sLocalFile, "*") Then
   If InStr(sLocalFile, " ") Then
     FTPUpload = "Error: Wildcard uploads do not work if the path contains a " & _
     "space." & vbCRLF
     FTPUpload = FTPUpload & "This is a limitation of the Microsoft FTP client."
     Exit Function
   End If
 ElseIf Len(sLocalFile) = 0 Or Not oFTPScriptFSO.FileExists(sLocalFile) Then
   'nothing to upload
   FTPUpload = "Error: File Not Found."
   Exit Function
 End If
 '--------END Path Checks---------
 
 'build input file for ftp command
 sFTPScript = sFTPScript & "USER " & sUsername & vbCRLF
 sFTPScript = sFTPScript & sPassword & vbCRLF
 sFTPScript = sFTPScript & "cd " & sRemotePath & vbCRLF
 sFTPScript = sFTPScript & "binary" & vbCRLF
 sFTPScript = sFTPScript & "prompt n" & vbCRLF
 sFTPScript = sFTPScript & "put " & sLocalFile & vbCRLF
 sFTPScript = sFTPScript & "quit" & vbCRLF & "quit" & vbCRLF & "quit" & vbCRLF

sFTPTemp = oFTPScriptShell.ExpandEnvironmentStrings("%TEMP%")
 sFTPTempFile = sFTPTemp & "\" & oFTPScriptFSO.GetTempName
 sFTPResults = sFTPTemp & "\" & oFTPScriptFSO.GetTempName

'Write the input file for the ftp command
 'to a temporary file.
 Set fFTPScript = oFTPScriptFSO.CreateTextFile(sFTPTempFile, True)
 fFTPScript.WriteLine(sFTPScript)
 fFTPScript.Close
 Set fFTPScript = Nothing

oFTPScriptShell.Run "%comspec% /c FTP -n -s:" & sFTPTempFile & " " & sSite & _
 " > " & sFTPResults, 0, TRUE
 
 Wscript.Sleep 1000
 
 'Check results of transfer.
 Set fFTPResults = oFTPScriptFSO.OpenTextFile(sFTPResults, ForReading, _
 FailIfNotExist, OpenAsDefault)
 sResults = fFTPResults.ReadAll
 fFTPResults.Close
 
 oFTPScriptFSO.DeleteFile(sFTPTempFile)
 oFTPScriptFSO.DeleteFile (sFTPResults)
 
 If InStr(sResults, "226 Transfer complete.") > 0 Then
   FTPUpload = True
 ElseIf InStr(sResults, "File not found") > 0 Then
   FTPUpload = "Error: File Not Found"
 ElseIf InStr(sResults, "cannot log in.") > 0 Then
   FTPUpload = "Error: Login Failed."
 Else
   FTPUpload = "Error: Unknown."
 End If

Set oFTPScriptFSO = Nothing
 Set oFTPScriptShell = Nothing
End Function

Function FTPDownload(sSite, sUsername, sPassword, sLocalPath, sRemotePath, _
        sRemoteFile)
[/size][size="1"]  'This script is provided under the Creative Commons license located
 'at [link=http://creativecommons.org/licenses/by-nc/2.5/]http://creativecommons.org/licenses/by-nc/2.5/[/link] . It may not
 'be used for commercial purposes with out the expressed written consent
 'of NateRice.com

sRemotePath = Trim(sRemotePath)
 sLocalPath = Trim(sLocalPath)
 
 '----------Path Checks---------
 'Here we will check the remote path, if it contains
 'spaces then we need to add quotes to ensure
 'it parses correctly.
 If InStr(sRemotePath, " ") > 0 Then
   If Left(sRemotePath, 1) <> """" And Right(sRemotePath, 1) <> """" Then
     sRemotePath = """" & sRemotePath & """"
   End If
 End If
 
 'Check to ensure that a remote path was
 'passed. If it's blank then pass a "\"
 If Len(sRemotePath) = 0 Then
   'Please note that no premptive checking of the
   'remote path is done. If it does not exist for some
   'reason. Unexpected results may occur.
   sRemotePath = "\"
 End If
 
 'If the local path was blank. Pass the current
 'working direcory.
 If Len(sLocalPath) = 0 Then
   sLocalpath = oFTPScriptShell.CurrentDirectory
 End If
 
 If Not oFTPScriptFSO.FolderExists(sLocalPath) Then
   'destination not found
   FTPDownload = "Error: Local Folder Not Found."
   Exit Function
 End If
 
 sOriginalWorkingDirectory = oFTPScriptShell.CurrentDirectory
 oFTPScriptShell.CurrentDirectory = sLocalPath
 '--------END Path Checks---------
 
 'build input file for ftp command
 sFTPScript = sFTPScript & "USER " & sUsername & vbCRLF
 sFTPScript = sFTPScript & sPassword & vbCRLF
 sFTPScript = sFTPScript & "cd " & sRemotePath & vbCRLF
 sFTPScript = sFTPScript & "binary" & vbCRLF
 sFTPScript = sFTPScript & "prompt n" & vbCRLF
 sFTPScript = sFTPScript & "mget " & sRemoteFile & vbCRLF
 sFTPScript = sFTPScript & "quit" & vbCRLF & "quit" & vbCRLF & "quit" & vbCRLF

sFTPTemp = oFTPScriptShell.ExpandEnvironmentStrings("%TEMP%")
 sFTPTempFile = sFTPTemp & "\" & oFTPScriptFSO.GetTempName
 sFTPResults = sFTPTemp & "\" & oFTPScriptFSO.GetTempName

oFTPScriptShell.Run "%comspec% /c FTP -n -s:" & sFTPTempFile & " " & sSite & _
 " > " & sFTPResults, 0, TRUE
 
 Wscript.Sleep 1000
 
 'Check results of transfer.
 Set fFTPResults = oFTPScriptFSO.OpenTextFile(sFTPResults, ForReading, _
                   FailIfNotExist, OpenAsDefault)
 sResults = fFTPResults.ReadAll
 fFTPResults.Close
 
 'oFTPScriptFSO.DeleteFile(sFTPTempFile)
 'oFTPScriptFSO.DeleteFile (sFTPResults)
 
 If InStr(sResults, "226 Transfer complete.") > 0 Then
   FTPDownload = True
 ElseIf InStr(sResults, "File not found") > 0 Then
   FTPDownload = "Error: File Not Found"
 ElseIf InStr(sResults, "cannot log in.") > 0 Then
   FTPDownload = "Error: Login Failed."
 Else
   FTPDownload = "Error: Unknown."
 End If
 
 Set oFTPScriptFSO = Nothing
 Set oFTPScriptShell = Nothing
End Function[/size]

(in reply to zeddjb)

Post #: 2

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> FTP Connect & File Upload

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts