创建文件上传WEB服务，第一部分

Imports System.IO

Private UploadDirectory As String = _
    ConfigurationSettings.AppSettings("UPLOAD_DIRECTORY")

    <WebMethod()> Public Function UploadFile(ByVal fs() As Byte, _
                           ByVal FileName As String) As Boolean
        Dim m As New MemoryStream(fs)
        Dim f As New FileStream(UploadDirectory & FileName, _
                                FileMode.Create)
        Try
            m.WriteTo(f)
            Return True
        Catch ex As Exception
            Return False
        Finally
            m.Close()
            f.Close()
        End Try
    End Function