<?xml version="1.0" encoding="utf-8"?>
<rss xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:pingback="http://madskills.com/public/xml/rss/module/pingback/" xmlns:trackback="http://madskills.com/public/xml/rss/module/trackback/" xmlns:wfw="http://wellformedweb.org/CommentAPI/" xmlns:slash="http://purl.org/rss/1.0/modules/slash/" xmlns:dc="http://purl.org/dc/elements/1.1/" version="2.0">
  <channel>
    <title>My DasBlog! - VB.NET</title>
    <link>http://net.bloggix.com/</link>
    <description>newtelligence powered</description>
    <language>en-us</language>
    <copyright>Alexander Meijers</copyright>
    <lastBuildDate>Wed, 13 Jul 2005 06:25:44 GMT</lastBuildDate>
    <generator>newtelligence dasBlog 2.3.9074.18820</generator>
    <managingEditor>a.meijers@smoothocean.com</managingEditor>
    <webMaster>a.meijers@smoothocean.com</webMaster>
    <item>
      <trackback:ping>http://net.bloggix.com/Trackback.aspx?guid=d164aa32-82a2-453b-b427-9d8d34dfb927</trackback:ping>
      <pingback:server>http://net.bloggix.com/pingback.aspx</pingback:server>
      <pingback:target>http://net.bloggix.com/PermaLink,guid,d164aa32-82a2-453b-b427-9d8d34dfb927.aspx</pingback:target>
      <dc:creator />
      <wfw:comment>http://net.bloggix.com/CommentView,guid,d164aa32-82a2-453b-b427-9d8d34dfb927.aspx</wfw:comment>
      <wfw:commentRss>http://net.bloggix.com/SyndicationService.asmx/GetEntryCommentsRss?guid=d164aa32-82a2-453b-b427-9d8d34dfb927</wfw:commentRss>
      <body xmlns="http://www.w3.org/1999/xhtml">
        <p>
          <font color="#000000">
            <a href="http://www.sharepointblogs.com/spdiary/">Paul Schaeflein</a> did
a post about an example how to programmatically upload a file to a document library.
The example is in VB.NET and could be very handy to use in custom made WebParts. Thanks
for that! :)</font>
        </p>
        <p>
          <font face="Courier New" color="#808080">Sub ProcessPostedFile(ByVal fileUpload As
HtmlControls.HtmlInputFile)<br />
    Try<br />
    ' get the filename and stream<br />
    Dim fn As String = System.IO.Path.GetFileName(fileUpload.PostedFile.FileName)<br />
    Dim stm As System.IO.Stream = fileUpload.PostedFile.InputStream<br />
    Dim contents(CInt(stm.Length)) As Byte</font>
        </p>
        <p>
          <font face="Courier New" color="#808080">    stm.Read(contents, 0,
CInt(stm.Length))<br />
    stm.Close()</font>
        </p>
        <p>
          <font face="Courier New" color="#808080">    ' get the library path<br />
    Dim docLibPath As String = Configuration.ConfigurationSettings.AppSettings("DocUploadPath")<br />
    ' first, get the site containing the library<br />
    Dim site As SPSite = New SPSite(docLibPath)<br />
    Dim web As SPWeb = site.OpenWeb<br />
    ' then get the folder<br />
    Dim docFolder As SPFolder = web.GetFolder(docLibPath)</font>
        </p>
        <p>
          <font face="Courier New" color="#808080">    ' delete the file if it
exists<br />
    Dim docFile As SPFile<br />
    Try<br />
        docFile = docFolder.Files(fn)<br />
    Catch ex As Exception<br />
    End Try</font>
        </p>
        <p>
          <font face="Courier New" color="#808080">    If Not docFile Is Nothing
Then<br />
        docFolder.Files.Delete(fn)<br />
    End If</font>
        </p>
        <p>
          <font color="#000000"> </font>
          <font face="Courier New" color="#808080">  
' save the file<br />
    docFile = docFolder.Files.Add(fn, contents)</font>
        </p>
        <p>
          <font face="Courier New" color="#808080">    Catch ex As Exception<br />
        Context.Trace.Warn(ex.ToString)<br />
    End Try<br />
End Sub</font>
        </p>
        <p>
          <a href="http://sharepointblogs.com/SPDiary/archive/2005/07/12/2632.aspx">
            <font color="#000000">http://sharepointblogs.com/SPDiary/archive/2005/07/12/2632.aspx</font>
          </a>
        </p>
        <p>
          <font color="#000000">Article written by Bil Simser doing the same upload using a
HTTP PUT. Meaning that you could use it from any place and not only on the SharePoint
server.</font>
        </p>
        <p>
          <a href="http://weblogs.asp.net/bsimser/archive/2004/06/06/149673.aspx">
            <font color="#000000">http://weblogs.asp.net/bsimser/archive/2004/06/06/149673.aspx</font>
          </a>
        </p>
        <img width="0" height="0" src="http://net.bloggix.com/aggbug.ashx?id=d164aa32-82a2-453b-b427-9d8d34dfb927" />
      </body>
      <title>How to: Programmatically upload a file to a document library</title>
      <guid isPermaLink="false">http://net.bloggix.com/PermaLink,guid,d164aa32-82a2-453b-b427-9d8d34dfb927.aspx</guid>
      <link>http://net.bloggix.com/2005/07/13/HowToProgrammaticallyUploadAFileToADocumentLibrary.aspx</link>
      <pubDate>Wed, 13 Jul 2005 06:25:44 GMT</pubDate>
      <description>&lt;p&gt;
&lt;font color=#000000&gt;&lt;a href="http://www.sharepointblogs.com/spdiary/"&gt;Paul Schaeflein&lt;/a&gt; did
a post about an example how to programmatically upload a file to a document library.
The example is in VB.NET and could be very handy to use in custom made WebParts. Thanks
for that! :)&lt;/font&gt;
&lt;/p&gt;
&lt;p&gt;
&lt;font face="Courier New" color=#808080&gt;Sub ProcessPostedFile(ByVal fileUpload As HtmlControls.HtmlInputFile)&lt;br&gt;
&amp;nbsp;&amp;nbsp;&amp;nbsp; Try&lt;br&gt;
&amp;nbsp;&amp;nbsp;&amp;nbsp; ' get the filename and stream&lt;br&gt;
&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim fn As String = System.IO.Path.GetFileName(fileUpload.PostedFile.FileName)&lt;br&gt;
&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim stm As System.IO.Stream = fileUpload.PostedFile.InputStream&lt;br&gt;
&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim contents(CInt(stm.Length)) As Byte&lt;/font&gt;
&lt;/p&gt;
&lt;p&gt;
&lt;font face="Courier New" color=#808080&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; stm.Read(contents, 0, CInt(stm.Length))&lt;br&gt;
&amp;nbsp;&amp;nbsp;&amp;nbsp; stm.Close()&lt;/font&gt;
&lt;/p&gt;
&lt;p&gt;
&lt;font face="Courier New" color=#808080&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; ' get the library path&lt;br&gt;
&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim docLibPath As String = Configuration.ConfigurationSettings.AppSettings("DocUploadPath")&lt;br&gt;
&amp;nbsp;&amp;nbsp;&amp;nbsp; ' first, get the site containing the library&lt;br&gt;
&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim site As SPSite = New SPSite(docLibPath)&lt;br&gt;
&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim web As SPWeb = site.OpenWeb&lt;br&gt;
&amp;nbsp;&amp;nbsp;&amp;nbsp; ' then get the folder&lt;br&gt;
&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim docFolder As SPFolder = web.GetFolder(docLibPath)&lt;/font&gt;
&lt;/p&gt;
&lt;p&gt;
&lt;font face="Courier New" color=#808080&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; ' delete the file if it
exists&lt;br&gt;
&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim docFile As SPFile&lt;br&gt;
&amp;nbsp;&amp;nbsp;&amp;nbsp; Try&lt;br&gt;
&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; docFile = docFolder.Files(fn)&lt;br&gt;
&amp;nbsp;&amp;nbsp;&amp;nbsp; Catch ex As Exception&lt;br&gt;
&amp;nbsp;&amp;nbsp;&amp;nbsp; End Try&lt;/font&gt;
&lt;/p&gt;
&lt;p&gt;
&lt;font face="Courier New" color=#808080&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; If Not docFile Is Nothing
Then&lt;br&gt;
&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; docFolder.Files.Delete(fn)&lt;br&gt;
&amp;nbsp;&amp;nbsp;&amp;nbsp; End If&lt;/font&gt;
&lt;/p&gt;
&lt;p&gt;
&lt;font color=#000000&gt;&amp;nbsp;&lt;/font&gt;&lt;font face="Courier New" color=#808080&gt;&amp;nbsp;&amp;nbsp;
' save the file&lt;br&gt;
&amp;nbsp;&amp;nbsp;&amp;nbsp; docFile = docFolder.Files.Add(fn, contents)&lt;/font&gt;
&lt;/p&gt;
&lt;p&gt;
&lt;font face="Courier New" color=#808080&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Catch ex As Exception&lt;br&gt;
&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Context.Trace.Warn(ex.ToString)&lt;br&gt;
&amp;nbsp;&amp;nbsp;&amp;nbsp; End Try&lt;br&gt;
End Sub&lt;/font&gt;
&lt;/p&gt;
&lt;p&gt;
&lt;a href="http://sharepointblogs.com/SPDiary/archive/2005/07/12/2632.aspx"&gt;&lt;font color=#000000&gt;http://sharepointblogs.com/SPDiary/archive/2005/07/12/2632.aspx&lt;/font&gt;&lt;/a&gt;
&lt;/p&gt;
&lt;p&gt;
&lt;font color=#000000&gt;Article written by Bil Simser doing the same upload using a HTTP
PUT. Meaning that you could use it from any place and not only on the SharePoint server.&lt;/font&gt;
&lt;/p&gt;
&lt;p&gt;
&lt;a href="http://weblogs.asp.net/bsimser/archive/2004/06/06/149673.aspx"&gt;&lt;font color=#000000&gt;http://weblogs.asp.net/bsimser/archive/2004/06/06/149673.aspx&lt;/font&gt;&lt;/a&gt;
&lt;/p&gt;
&lt;img width="0" height="0" src="http://net.bloggix.com/aggbug.ashx?id=d164aa32-82a2-453b-b427-9d8d34dfb927" /&gt;</description>
      <comments>http://net.bloggix.com/CommentView,guid,d164aa32-82a2-453b-b427-9d8d34dfb927.aspx</comments>
      <category>SharePoint</category>
      <category>VB.NET</category>
    </item>
  </channel>
</rss>