EXEMPLE DE SERVICE WEB

Imports System.Web.Services
Imports System.io

<System.Web.Services.WebService(Namespace:="http://fr-cyrildurand.int.webmatrixhosting.net/DownloadFile/Service1")> _
Public Class Service1
    Inherits System.Web.Services.WebService

#Region " Code généré par le Concepteur des services Web "

    Public Sub New()
        MyBase.New()

        'Cet appel est requis par le Concepteur des services Web.
        InitializeComponent()

        'Ajoutez votre code d'initialisation après l'appel InitializeComponent()

    End Sub

    'Requis par le Concepteur des services Web
    Private components As System.ComponentModel.IContainer

    'REMARQUE : la procédure suivante est requise par le Concepteur des services Web
    'Elle peut être modifiée en utilisant le Concepteur des services Web.  
    'Ne la modifiez pas en utilisant l'éditeur de code.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        components = New System.ComponentModel.Container
    End Sub

    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        'CODEGEN : cette procédure est requise par le Concepteur des services Web
        'Ne la modifiez pas en utilisant l'éditeur de code.
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

#End Region


    Private Const DirectoryImages As String = "Images"
    Private Const AdressWebService As String = "http://fr-cyrildurand.int.webmatrixhosting.net/DownloadFile"

    <WebMethod()> Public Function GetCategories() As String()

        If Directory.Exists(Server.MapPath(DirectoryImages)) Then

            Dim DI() As DirectoryInfo = New DirectoryInfo(Server.MapPath(DirectoryImages)).GetDirectories
            Dim _GetCategories(DI.Length - 1) As String

            Dim i As Integer
            For Each _DI As DirectoryInfo In DI
                _GetCategories(i) = _DI.Name
                i += 1
            Next

            Return _GetCategories
        Else
            'Erreur : le Dossier des images n'existe pas
        End If

    End Function

    <WebMethod()> Public Function GetFilesName(ByVal Category As String) As String()
        If Directory.Exists(Server.MapPath(DirectoryImages & "\" & Category)) Then

            Dim FI() As FileInfo = New DirectoryInfo(Server.MapPath(DirectoryImages & "/" & Category)).GetFiles("*.jpg")
            Dim _GetFilesName(FI.Length - 1) As String

            Dim i As Integer
            For Each _FI As FileInfo In FI
                _GetFilesName(i) = _FI.Name
                i += 1
            Next

            Return _GetFilesName
        End If
    End Function

    <WebMethod()> Public Function GetFilesFullName(ByVal Category As String) As String()
        Dim _GetFilesFullName() As String = GetFilesName(Category)
        Dim _GetFilesFullNameTemp(_GetFilesFullName.Length - 1) As String

        Dim i As Integer
        For Each s As String In _GetFilesFullName
            _GetFilesFullNameTemp(i) = AdressWebService & "/" & DirectoryImages & "/" & Category & "/" & s
            i += 1
        Next

        Return _GetFilesFullNameTemp
    End Function

End Class

Télécharger le zip