How To Use Internet Publishing Provider to Upload Files in Windows XP (305724)

SUMMARY

How to Use the Internet Publishing Provider to Upload Files

1. Open Internet Services Manager. To open Internet Services Manager on a computer that is running Microsoft Windows XP, follow these steps:
   1. From the Windows Start menu, point to Programs, and point to Administrative Tools.
   2. Click Internet Services Manager to open the Internet Services Manager (ISM) console on your Web server.
2. In Internet Services Manager, right-click the default Web site, point to New, and then click Virtual Directory. Name the new virtual directory Upload. Complete the steps in the wizard to set up the new virtual directory.
3. In Microsoft Visual Basic, create a new Standard EXE project. Form1 is added to the project by default.
4. From the Project menu, click References, and select the Microsoft ActiveX Data Objects 2.6 check box.
5. Paste the following code onto the Declarations section of Form1:

   Option Explicit
   Private Sub Form_Load()
       Dim objStream As ADODB.Stream
       Dim objRecord As ADODB.Record
       Dim strUrl As String, strFile As String
       strUrl = "http://local/Upload"
       strFile = "test2.txt"
       Set objRecord = New ADODB.Record
       Set objStream = New ADODB.Stream
       objRecord.Open strFile, "URL=" + strUrl, adModeReadWrite, _
          adCreateOverwrite, adDelayFetchStream
       objStream.Type = adTypeBinary
       objStream.Open objRecord, adModeReadWrite, adOpenStreamFromRecord
       objStream.LoadFromFile "C:\test.txt"
       objStream.Flush
       objStream.Close
       objRecord.Close
       Set objStream = Nothing
       Set objRecord = Nothing
   End Sub 
   					

6. In the preceding code, change the value of strURL to the appropriate Web site URL.
7. Press the F5 key to run the project.
8. Open the Internet Information Services console again, and look in the Upload virtual directory. Notice that your file has been uploaded.