ENVOYER UN NOUVEAU FICHIER DANS UN REPERTOIRE ET SAUVEGARDER L'ANCIEN

pour avoir une fenetre input sur le form il faut copier ce code directement dans l'HTML
<input id="file1" type="file" size="20" name="file1" runat="server"> 
dans le behind il faut ajouter
Imports System.IO

dans le bouton "btnenvoyer" il faut rajouter ce code

 Private Sub btnenvoyer_ServerClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenvoyer.ServerClick

        Dim thepath As String

        thepath = "C:\Inetpub\wwwroot\annuaire\"

        If File.Exists(thepath & "personnel.xls") Then

'je copie d'abord le fichier existant dans un autre repertoire en rajoutant la date dans son nom pour garder toutes les sauvegardes.

            File.Copy(thepath & "personnel.xls", "C:\sauvegarde-annuaire\personnel" & Now.ToString("d-MM-yy-hms") & ".xls")

'je supprime le fichier existant avant de recevoir le nouveau dans mon repertoire, et je verifie qu'on a bien selectionner un autre fichier avant de supprimer l'existant

            If Not file1.PostedFile Is Nothing Then
                File.Delete(thepath & "personnel.xls")
            End If
        End If

j'importe le nouveau fichier

        If Not file1.PostedFile Is Nothing Then
            file1.PostedFile.SaveAs(thepath & "personnel.xls")
        End If

    End Sub