Imports System.Web.Services
Imports System.Configuration
Imports System.IO
<WebService(Namespace:="http://www.dynamics-apps.com")> _
Public Class FileServer
Inherits System.Web.Services.WebService
#Region " Web Services Designer Generated Code "
Public Sub New()
MyBase.New()
'This call is required by the Web Services Designer.
InitializeComponent()
'Add your own initialization code after the InitializeComponent() call
End Sub
'Required by the Web Services Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Web Services Designer
'It can be modified using the Web Services Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
components = New System.ComponentModel.Container()
End Sub
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
'CODEGEN: This procedure is required by the Web Services Designer
'Do not modify it using the code editor.
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
#End Region
Private Shared WebServerPath As String = ConfigurationSettings.AppSettings("WebServerRootPath")
Public Enum FileExtensions
htm
html
asp
aspx
jpg
gif
dll
exe
all
End Enum
Public Class FileInformation
Public Name As String
Public Size As Long
Public CreadedDate As DateTime
Public LastModified As DateTime
Public LastAccess As DateTime
Public FileType As String
Public FileLocation As String
Public FileContent As Byte()
End Class
<WebMethod(Description:="Retrieve a boolean indicating if Path exists or not in WebServer")> _
Public Function DirectoryExists(ByVal Path As String) As Boolean
Dim di As New DirectoryInfo(WebServerPath & Path)
Return di.Exists
End Function
<WebMethod(Description:="Retrieve a boolean indicating if File exists or not in WebServer")> _
Public Function FileExists(ByVal Path As String,ByVal FileName As String) As Boolean
Dim di As DirectoryInfo
Dim fi As FileInfo
Try
di = New DirectoryInfo(WebServerPath & Path)
If Not di.Exists Then
Return False
Exit Function
End If
Dim afi As FileInfo() = di.GetFiles()
For Each fi In afi
If fi.Name = FileName Then
Return True
Exit For
End If
Next
Catch
Return False
End Try
End Function
<WebMethod(Description:="Retrieve an array of files with name,attributes and content.")> _
Public Function Browse(ByVal VirtualPath As String,ByVal FileExtension As FileExtensions) As FileInformation()
Dim i As Integer
Dim fi As FileInfo
Dim aFiles As FileInformation()
Dim mExtension As String
Select Case FileExtension
Case FileExtensions.asp
mExtension = "asp"
Case FileExtensions.aspx
mExtension = "aspx"
Case FileExtensions.gif
mExtension = "gif"
Case FileExtensions.htm
mExtension = "htm"
Case FileExtensions.html
mExtension = "html"
Case FileExtensions.jpg
mExtension = "jpg"
Case FileExtensions.dll
mExtension = "dll"
Case FileExtensions.exe
mExtension = "exe"
Case FileExtensions.all
mExtension = "*"
End Select
Dim di As New DirectoryInfo(WebServerPath & VirtualPath)
Dim afi As FileInfo() = _
di.GetFiles("*." & mExtension)
ReDim Preserve aFiles(afi.Length - 1)
For Each fi In afi
aFiles(i) = New FileInformation()
aFiles(i).Name = fi.Name
aFiles(i).Size = fi.Length
aFiles(i).LastAccess = fi.LastAccessTime
aFiles(i).CreadedDate = fi.CreationTime
aFiles(i).LastModified = fi.LastWriteTime
aFiles(i).FileType = fi.Extension
aFiles(i).FileLocation = fi.DirectoryName
aFiles(i).FileContent = ReadFile(WebServerPath & VirtualPath & "/" & fi.Name)
i += 1
Next
Return aFiles
End Function
<WebMethod(Description:="Retrieve a single file.")> _
Public Function GetFile(ByVal VirtualPath As String,ByVal FileName As String) As Byte()
Return ReadFile(WebServerPath & VirtualPath & "/" & FileName)
End Function
Private Shared Function ReadFile(ByVal FilePath As String) As Byte()
Dim fs As FileStream
Try
' Read file and return contents
fs = File.Open(FilePath,FileMode.Open,FileAccess.Read)
Dim lngLen As Long = fs.Length
Dim abytBuffer(CInt(lngLen - 1)) As Byte
fs.Read(abytBuffer,CInt(lngLen))
Return abytBuffer
Catch exp As Exception
Return Nothing
Finally
If Not fs Is Nothing Then
fs.Close()
End If
End Try
End Function
<WebMethod(Description:="Upload a single file to web server.")> _
Public Function UploadFile(ByVal VirtualPath As String,ByVal Name As String,ByVal Content As Byte()) As Boolean
Dim objFile As File,objStream As StreamWriter,objFstream As FileStream
Try
objFstream = File.Open(WebServerPath & VirtualPath & "/" & Name,FileMode.Create,FileAccess.Write)
Dim lngLen As Long = Content.Length
objFstream.Write(Content,CInt(lngLen))
objFstream.Flush()
objFstream.Close()
Return True
Catch exc As System.UnauthorizedAccessException
Return False
Catch exc As Exception
Return False
Finally
If Not objFstream Is Nothing Then
objFstream.Close()
End If
End Try
End Function
#Region " Helper Function "
<WebMethod(Description:="Retrieves version & copyright information about this web service.")> Public Function About() As String
' Uses the StringWriter to build a string with carriage returns & line feeds to
' return back to a calling client the Title,Version,and Description by
' reading Assembly meta-data originally entered in the AssemblyInfo.vb file
' using the AssemblyInfo class defined in the same file.
Try
Dim sw As New System.IO.StringWriter()
Dim ainfo As New AssemblyInfo()
With sw
.WriteLine(ainfo.Title)
.WriteLine(String.Format("Version {0}",ainfo.Version))
.WriteLine(ainfo.Copyright)
.WriteLine("")
.WriteLine(ainfo.Description)
.WriteLine("")
.WriteLine(ainfo.CodeBase)
End With
Dim strRetVal As String = sw.ToString
sw.Close()
Return strRetVal
Catch exp As Exception
Return exp.Message
End Try
End Function
#End Region
End Class
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。