<?xml version="1.0" encoding="utf-8"?>
<CodeSnippets xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
  <CodeSnippet Format="1.0.0">
    <Header>
      <Title>Web Service for File Transmission</Title>
      <Shortcut>WebServiceforFileTransmission</Shortcut>
      <Description>Web Service for File Transmission [VB.NET]</Description>
      <Author>Leonardo Grimaldi</Author>
      <HelpUrl>/PreviewSnippet.aspx?SnippetID=ae8c7b1f-9b18-4633-ba55-ce280a1befc0</HelpUrl>
      <SnippetTypes>
        <SnippetType>SurroundsWith</SnippetType>
      </SnippetTypes>
    </Header>
    <Snippet>
      <Code Language="VB"><![CDATA[    <WebMethod()> _
    Public Function EnviarArchivo(ByVal buffer As Byte(), ByVal NombreArch As String) As Boolean
        Dim binWriter As BinaryWriter
        Try
            binWriter = New BinaryWriter(File.Open(NombreArch, FileMode.OpenOrCreate, FileAccess.ReadWrite))
            binWriter.Write(buffer)
            binWriter.Close()
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function]]></Code>
    </Snippet>
  </CodeSnippet>
</CodeSnippets>