Dan Thomson at myITforum.com

Scripting List Solutions: VBScript to upload file to website

This was  posted to the myITforum Scripting email list a while back by  Scott Klassen.  He says it took him a little bit to get going and wanted to share it in case it can help somebody else.

srcFolder = "\\server\share\"
strUserID = "MyID"
strPassword = "APasswordGoesHere"
strURL = "https://www.theuploadwebsite.com/puthere/"

Set HTTP = WScript.CreateObject("Microsoft.XMLHTTP")
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.getfolder(srcFolder) 
 

For Each File in Folder.Files
  If fso.GetExtensionName(File)="TXT" Then
    Set objStream = CreateObject("ADODB.Stream")
    objStream.Type = 1
    objStream.Open
    objStream.LoadFromFile(srcFolder & fso.GetFileName(File))

    HTTP.open "PUT", strURL & fso.GetFileName(File), False, strUserID, strPassword
    WScript.Echo "Now uploading file " & fso.GetFileName(File)

    HTTP.send objStream.Read

    WScript.Echo "Uploading complete for file " & fso.GetFileName(File)
    fso.DeleteFile(File)
  End If
Next
WScript.Echo "All files uploaded."

Set HTTP = Nothing

Published Sunday, September 16, 2007 7:22 PM by dthomson